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CORREO 



SUGERENCIAS 


Señores MUNDO ATAR I: 

Les envCo esta carta para hacerles 
llegar mis felicitaciones y algunas crí¬ 
ticas, con el fin de poder hacer cada 
vez mejor esta revista que mes a mes 
recibimos los atarianos con tanto 
entusiasmo. 

1. Mi primera sugerencia es que sigan 
con la columna Equipos, para estar 
al día de los nuevos —y no tan nue¬ 
vos equipos para ATARI. Por ejem¬ 
plo ATARI Lab, Touch Tablet, dis¬ 
tintos joysticks, impresoras, Lápiz de 
Luz, etc. ¿Existe algún Modem de 
1200 baudios para 8 bits? 

2. Aunque a mi no me afecta sugie¬ 
ro que sigan con la columna ST. Creo 
que hay muchos interesados y tam¬ 
bién muchos temas por tratar. 

3. Es importante que sigan con la 
columna Técnicas para que podamos 
seguir avanzando en la programa¬ 
ción ATARI. A propósito ¿Se puede 
dar a un player más de un color? 
¿Cómo aplicar dos o más rutinas al 
mismo tiempo? ¿Cómo aplicar más 
colores a un modo de alta resolución? 

4. Sugiero asimismo que continúen 
con la serie del libro ABC. Podría 
ser con la misma temática dp los 
anteriores aunque con mayor pro¬ 
fundidad. 


5. Sería bueno para la comunidad 
que organicen más concursos como 
incentivo. 

7. Importante: no pongan en una 
parte de la revista un producto a un 
cierto precio y en otra a otro precio. 
Me refiero a la impresora Panasonic 
en la revista 21. 

8. A continuación hago un recuento 
de observaciones a temas de la re¬ 
vista: 

— En el número 3, pág. 5 se anuncia 
un artículo sobre comunicaciones 
vía computador. Igualmente en el 
número 7, pág. 24 se anunció la crea¬ 
ción de una nueva columna del 
Wizop del BBS ATARI COELSA. 
Nada de esto se cumplió. 

— En la Editorial del número 4 dice 
que iban a publicar en diciembre el 
ranking de colaboradores, lo cual 
tampoco sucedió. Personalmente no 
me afecta. 

— En el número 4, pág. 37 anuncia¬ 
ron la elección del Rey de los Video¬ 
juegos, cosa que no sucedió. 

— En la revista número 7, pág. 35 
anuncian un evento de videojuegos 
con el requisito de que los alumnos 
tengan un certificado con nota su¬ 
perior a 5. ¿No pensaron que en la 
mayoría de los colegios las libretas 
o certificados los entregan a media¬ 
dos o fines de diciembre? El evento 
empezó a fines de noviembre. 

— Respecto a la creación de clubes 
no ha habido respuesta. Yo escribí 
para ingresar al Cas-ATARI. 


— En la revista 9, pág. 23 hubo 2 
preguntas con premios. Yo envié 
una respuesta, pero no hubo ganado¬ 
res ni una respuesta al problema. 

— En el número 11, pág. 36 mostra¬ 
ron gráficos en modo 0 y anuncia¬ 
ron una columna de animación 
gráfica. Esto quedó sólo en ese nú¬ 
mero. 

— En la revista 13, pág. 20 anuncia¬ 
ron el primer sorteo de un video 
ATARI, lo que sucedió el 8 de 
septiembre de 1988. ¿En qué 
quedaron los siguientes sorteos? 

— En el número 11 dieron a cono¬ 
cer un Compuclub, cuya informa¬ 
ción debía estar en la revista. Allí 
no salió nada. Pese a varias ges¬ 
tiones todavía continuamos con 
la duda de ¿qué será el Compu¬ 
club? 

— En el número 9 se entregó una 
nueva pauta de contribuciones. 
Yo pasé personalmente a la ofici¬ 
na a dejar un sobre cerrado con 4 
ó 5 programas del nivel inicial 
(de esto hace un año). Mis trabajos 
no fueron devueltos ni publicados. 

Ahora envío nuevamente las 
mismas contribuciones con la espe¬ 
ranza que tengan mejor acogida. 

Me despido de ustedes deseán¬ 
doles lo mejor. Las críticas no las 
hice por molestar, sino en honor 
a la verdad y con el afán de que 
la revista progrese. 

Rodrigo González L 
Hannover 5534, Ñuñoa 


□ Aceptamos sus críticas que nos 
servirán para rectificar publica¬ 
ciones futuras. 

Sus colaboraciones son muy inte¬ 
resantes y se publicarán próximamen¬ 
te dependiendo del espacio. 
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CORREO 


INTERCAMBIO 


Señor 

Gonzalo Galaz A. 

Casilla 16005, Santiago 

He estudiado atentamente tu con¬ 
tribución a la Revista MUNDOATA- 
R| N° 21, pág. 2 y te solicito el 
detalle de los códigos mnemónicos 
del programa Assembler que aparece 
en la línea 30 de tu listado, asimismo 
una breve explicación de cómo fun¬ 
ciona dicha rutina. 

Poseo un 800 XL y diskettera 
1050. Si te interesas podemos hacer 
un intercambio de programas y téc¬ 
nicas de programación. Manejo bien 
DL, DLI y un poco de Assembler, 
redefinición de caracteres y Player 
Missil. 

Envía listado de programas que 
eventualmente quisieras intercambiar. 

Luis Reyes A. 

Volcán Lascar 4658 
Villa Mar Hermoso, Talcahuano 


CONSULTAS 


Señor Director: 

Me es muy grato hacer llegar un 
saludo a mi revista favorita. 

Aparte del pedido adjunto deseo 
solicitar un favor: 

Necesito que hagan una prueba 
utilizando el "Copiador Múltiple" en 
la combinación disco-casete que con¬ 
sista en traspasar un programa, por 
ejemplo el Print Shop o el Vaciador 
de Pantalla o cualquier otro que esté 
disponible en diskette a un casete. 

Esta ¡dea surge del contacto con 
un programa para piratear en la ver¬ 
sión casete-casete o bien casete- dis¬ 
kette, pero no la que yo sugiero. 

Solicito además mayor disponibi¬ 
lidad de programas para atarianos 
más "populares”, o sea aquellos que 
poseen una configuración de un 800 
XL, casetera e impresora. 

Si la prueba sugerida tiene éxito 
agradeceré enviar cotización por los 
siguientes programas en casete: 

— Vaciador de pantalla (gráficos en 
ATARI 1029). 

— Print Shop y Compagnion 

— Base de Datos. 

— Syncalc. 

— Procesador de Textos y Dibujos. 

— Colección XLENT. 

— Utilitario 1029, Print Shop. 


Por último solicito una explica¬ 
ción de cómo desplegar en la Sei- 
kosha GP-500 los 10 caracteres por 
pulgada. Ojalá pudieran enviar una 
hoja impresa con un ejemplo. 

Jorge Olave R. 
Sargento Aldea 610 
Cura cautín 

□ El intento mencionado requiere 
de gran conocimiento de len¬ 
guaje de máquina. Es preferible ha¬ 
cer ei intento de adquirir una 1050. 
Vea oferta en Catálogo. 


LAPSUS 


Señor Director: 

Antes que nada me permito salu¬ 
darlos y felicitarlos por su trabajo 
editorial y de ayuda en software para 
quienes poseemos un computador 
ATARI. 

Para facilitar mi comprensión y 
autoaprendizaje me he suscrito a la 
Revista MUNDOATARI y he adqui¬ 
rido algunos utilitarios como apoyo 
a mi trabajo como Sub-director de 
una escuela Técnico-Profesional en 
Electrónica. 

Uno de los utilitarios, el UTI 1 
que se promueve en MUNDOATARI 
N° 15, no tiene el Generador de 
Barras de Color para utilizar en el 
ajuste y lineabilidad del color e 
imagen de un televisor. 

Seguramente se trata de un error 
de despacho, razón por la que envío 
el casete de vuelta y solicito rectifica¬ 
ción del pedido original. 

Octavio Caro E. 

BernaI de Mercado 770 
Villarrica 

□ El error se debe a un lapsus en 

el despacho. Rogamos enviar 
casete equivocado para su recti¬ 
ficación. 


COLABORACION 


Señor Director: 

Tengo 12 años y soy alumno de 
Informática en el Colegio Champag- 
nat de Villa Alemana. 

Quier cooperar con la Revista 
MUNDOATARI con un programa 


que he desarrollado durante las vaca¬ 
ciones llamado "Super Tablas". 

El computador plantea un pro¬ 
blema y evalúa la respuesta. Para 
aumentar o disminuir el grado de 
dificultad se pueden modificar las 
líneas 30 y 40 en el valor especifi¬ 
cado como *10. 

El programa se encuentra en 
diskette con un Autorun. 

Felicito al equipo humano de 
MUNDOATARI por su buen desem¬ 
peño en los 2 últimos años con la 
comunidad atariana, como también 
por las ventajosas ofertas de equi¬ 
pos, que me han permitido adquirir 
una XF-551. 

Roberto Vera V. 

Villa Alemana 

□ Felicitaciones por su aporte. 

Recibirá un premio de estímulo 
de $ 1.500 en software a elección del 
Catálogo MUNDOATARI. 


Señor Director: 

Adjunto 2 programas en diskette 
de mi creación, y con la ayuda de to¬ 
dos ustedes. 

Los programas se llaman: Suma 
(prueba de aritmética). Broma (pro¬ 
grama sorpresa, pero simpático). 
Prueba (cuestionario de cantantes) y 
Minimenú (con variaciones del 2.5). 

Juan Feo. Friedl 
Angol 

□ Felicitaciones. Recibe un premio 
de estímulo de $ 2.000 en soft¬ 
ware del Catálogo. 


Señor Director: 

Envío esta colaboración dirigida 
a 3os. y 4os. Medios. Ellos consisten 
en programas de matemáticas y de 
Organelos celulares. 

Espero que sean de utilidad a los 
seguidores de MUNDATARI. 

Juan Grau M. 
Sta. Ana 199, Villa Alemana 

□ Muy interesantes. Recibe un pre¬ 
mio de $ 3.000 en software. £ 
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Editorial 


A MIGOS lectores, en este número continuamos nuestro trabajo mensual 
con una excelente información acerca de la técnica más relevante 
del ATARI, como es la de los Player/Missiles, que permite colocar 
animación a 4 ó 5 figuras sobre el plano de la pantalla. Esta técnica se 
encuentra disponible mediante programación, cuyas etapas para lograrla 
constituirán el tema central de MUNDOATARI en éste y los próximos 
números. Así damos respuesta a la necesidad solicitada por nuestros lectores. 


Esta información, sumada a la proporcionada en los 23 números 
anteriores, transforma a MUNDOATARI en una colección imprescindible 
en el hogar de todos y cada uno de los usuarios ATARI. 


Como una medida práctica para hacer factible lo acotado anteriormente, 
y debido a la gran cantidad de suscriptores vigentes, MUNDOATARI puede 
entregar ahora la suscripción a un precio rebajado de $ 2.400 por 12 números. 
De este modo el precio es el 50°/o del ofrecido en la tapa. Divulgue usted 
esta noticia con sus amigos, para que más lectores puedan acogerse a este 


beneficio. 


En este número terminamos con la descripción del programa FIRST 
XLENT e iniciamos el NEWS ROOM, utilitario práctico para impresora 
que presenta posibilidades relevantes para imprimir diferentes formatos 
con dibujos y diferentes tipos de letras. 


La columna Dominando la 1050 proporciona rutinas en máquina para 
el acceso a archivo y sectores. 

La nueva diskettera XF-551 incursiona con una técnica para traspaso 
de archivos desde el DOS 2.5 al nuevo Sistema Operativo DOS XE. 

Para la educación ofrecemos un programa de disparos, que combina el 
juego con el aprendizaje de las matemáticas. 

Se despide hasta el próximo número con más novedades, 


Iván Gjurovic 
Editor 


MUND®ATARt 
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La potencia gráfica de los computadores ATAR! 
es una capacidad sobresaliente. Si agregamos el 
factor de animación el resultado será óptimo. 

El tema de este mes proporciona información, 
ejemplos y programas para que usted, amigo lector 
que ha avanzado con nosotros en estos largos 23 
números de vigencia de MUNDOATARI, pueda 
disfrutar con el aprendizaje a distancia acerca del 
tema de Player/Missiles. 


INTRODUCCION A PLAYER/MISSILES 

Para referirnos a este terna usaremos la abre¬ 
viación PMG (Player Missil Graphics). 

¿Qué se puede hacer con esta potencialidad 
de los PMG? 

Se puede hacer toda clase de figuras animadas 


y efectos gráficos especiales que darán lugar a un 
desarrollo superior en la presentación de sus pan¬ 
tallas. 
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TUTORIA: continuación 


Esta potencialidad es de fácil acceso para un 
programador inicial y aumenta sus posibilidades 
de programación gracias al acceso directo a la 
memoria (DMA), que lo asemeja a dibujar figuras 
de pequeños cuadrados en papel milimetrado. 

Además podemos agregar el color que usted 
desee a las figuras, independientemente del color 
de fondo, hasta un total de 5 figuras. 

Con PMG cada figura adquiere un carácter 
tridimensional al actuar independientemente del 
fondo de la pantalla, pudiendo estar sobre o de¬ 
bajo del mismo. 

El control de tamaño de la figura es otro pun¬ 
to interesante como efecto especial para simular 
acercamiento o aumentar grados de dificultad. 

Una particularidad más especial del PMG es 
la animación: se puede mover las figuras tan rá¬ 
pido como se observa en los video-juegos. 

El objetivo inicial de PMG en el hardware del 
ATARI estaba destinado inicialmente a los juegos, 
pero en la práctica se puede utilizar para otras 
aplicaciones, como por ejemplo para poner más 
colorido en la pantalla, o bien para un programa 
educacional que puede utilizar un cursor especial 
que puede ser manejado con el joystick con gran 
facilidad, sin que interfiera con el contenido de 
la pantalla. 

Esta breve introducción pretende motivarlo 
a usted, amigo lector, para que experimente e 
incorpore esta técnica a su repertorio personal. 


Wt 

(TUV»f 'I» n 


CONSTRUYENDO PMG 

Nuestro trabajo consiste en aprender a cons¬ 
truir una figura de PMG. Debería ser capaz de. 

a) Dibujar una figura en papel. 

b) Determinar los códigos binarios necesarios 
para crear la figura. 

c) Calcular el número decimal para cada có¬ 
digo binario. 

d) Introducir la linea de programación corres¬ 
pondiente. 

e) Diferenciar el área de memoria de PMG del 
área normal de memoria de pantalla. 

¿Cómo se almacenan las imágenes? 

Su ATARI tiene diferentes modos gráficos, 
cuyas características principales se indican en 
MUNDOATARI de marzo de 1989. 

Los modos gráficos del 3 al 8 son exclusiva¬ 
mente gráficos. El término pixel o elemento 
individual para cada uno de ellos, es importante 
para indicar sus características. 


La siguiente figura ilustra un pixel: 



Digite cuidadosamente el siguiente programa 
para visualizar las características del pixel para 
cada modo gráfico: 


10 GRAPHICS 5!? "INGRESE MODO GRAFICO 
3-8 " 

20 INPUT 6M:IF 6M<3 OR GM>8 THEM 18 
30 GRAPHICS GM 
40 COLOR 3 
50 PLOT 30.18 

60 ? "ESTE ES UN l iMilO EH EL MODO GRAF 
ICO ";GM 

70 FOR PAU5A=1 TO 1800:HEHT PAU5A > 

80 GOTO 10 


Comentario de líneas: 

10 Define modo gráfico 5 y coloca un mensaje en 
la ventana de texto para ingresar un valor de 
modo gráficó entre 3 y 8. 

20 Ingresa el valor de modo en variable GM. Va- 

~ lida el número de ingreso de acuerdo a la con¬ 
dición. 

30 Coloca en pantalla el modo gráfico seleccio¬ 
nado. 

40 Selecciona el COLOR 3 para dibujar. 

50 Dibuja un pixel en las coordenadas 30,18 pa¬ 
ra el modo seleccionado. 

60 Edita en pantalla un mensaje para mostrar 
el pixel. 

70 Pausa para visualizarlo. 

80 Direcciona hacia la línea 10. 

Ejecute el programa para apreciar las carac¬ 
terísticas del pixel en cada modo. 


LA MEMORIA Y LOS BITS. 

La memoria de un computador se asemeja 
a una fila de bits. Ocho bits consecutivos con¬ 
figuran un byte. 
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TUTORIA: continuación 


Cada bit puede contener sólo 2 valores: 0 
ó 1. 

Para mayor información del tema puede ver 
en MUNDOATARI 1, en la columna Directo al 
6502, donde se detalla el Sistema Binario de nu¬ 
meración. 

Un área determinada de la memoria se utiliza 
para contener la información a manera de bits 
que producen la figura que usted desea operar. 

La cantidad de memoria (bits) depende de 
las características propias de cada modo gráfico. 

Examinemos 8 bits consecutivos de la memo¬ 
ria que nos dan la siguiente figura: 

00011000 

ellos producirán en pantalla el siguiente efecto: 



Los 8 bits en tal forma se asocian a un cierto 
decimal, que se determina a continuación en el 
esquema: 


(128) (64) (32) (16) (8) (4) (2) (1) 


0 

0 

0 

1 

0 

1 

0 

0 



Ocho en el horizontal, y once en la vertical. 
Cada línea de 8 corresponde a un byte, ver 
figura siguiente: 



x. 


i 


O O o 1 1 loo 

Estos 8 bits corresponden a un byte: 

00011100 

Al completar los sucesivos bytes nos queda la 
siguiente secuencia de números binarios como lo 
indica la figura: 


Mayor información de los valores para cada 
dígito los encuentra en MUNDOATARI 1 - 2. 



La figura del ajemplo anterior se encuentra 
formada al rellenar cuadrados en una matriz de 
8X11. 



OOP / UPO 

QQQULQQ. 

0000/000 


Al convertirlo usando la base binaria siguiente : 


(128) (64) (32) (16) (8) (4) (25 (1) 


11111111 


j> 
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TUTORIA: continuación 


Los valores asociados a la figura se observan 
en la siguiente figura: 



Por lo tanto, la serie de 11 números decimales 
siguientes: 

28, 28, 8, 28, 58, 89, 24, 40, 76, 68, 68 

producirá en la memoria de PMG la figura de nues¬ 
tro amigo caminante. 


Practiquemos con otras figuras: 



Indique los valores de esta figura. Envíe su res¬ 
puesta a nuestra casilla y sortearemos 5 suscripcio¬ 
nes entre las respuestas correctas. 

El segundo desafío consiste en construir la se¬ 
cuencia de Player para crear una ampolleta. Este 
problema tiene como recompensa $ 3.000 en soft¬ 
ware de nuestro Catálogo para la respuesta más 
acertada. 


El plazo para ambas respuestas vence el 25 
de mayo de 1989. 


DIMENSION ANDO UN STRING 
PARA PMG. 

En la sección anterior determinamos la se¬ 
cuencia de números decimales que pueden produ¬ 
cir en la pantalla una imagen (caminante). Pero 
nuestro problema radica ahora en la forma de có¬ 
mo y dónde localizar estos códigos para que pro¬ 
duzcan el efecto esperado. 

Primero debemos mencionar que una determi¬ 
nada área de la memoria será para uso restringido 
de los datos de PMG y que llemaremos de ahora 
en adelante como área de memoria PMG. 

El esquema siguiente ilustra una disposición 
básica para el área de PMG: 


PLAYER 3 


PLAYER 2 

PLAYER 1 

| 128 BYTES 

PLAYER O 


M3 M2 MI M0 



BUFFER 

* 

s 

1 

384 BYTES 

f 


Este esquema nos muestra: 

a) La existencia de 4 áreas similares, que corres¬ 
ponden al área de los Player diferenciados con 
los números dél 0 al 3. 

b) Un área similar a un Player, asignada a 4 figu¬ 
ras conocidas como Missiles, designadas igual¬ 
mente con los números del 0 al 3. 

c) Un área que se conoce como Buffer. 

Cada Player tiene 128 bytes. 

Los 4 Missiles hacen 128 bytes. 

El área del Buffer tiene 384 bytes. 

La suma del área mínima para PMG es de 
1.024 bytes, conocida como 1 Kilobyte. 
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TUTORIA: continuación 


¿Cómo manipular esta área? 

El manejo de strings es una técnica que permi¬ 
te resolver esta duda con rapidez y facilidad gracias 
a la particularidad del ATARI BASIC. 

La memoria disponible en el ATARI una vez 
instalado el ATARI BASIC tiene una gran longitud 
y por ende es necesario determinar exactamente la 
ubicación del área dedicada a PMG. 

Una de las limitaciones es que esta área se en¬ 
cuentre en el inicio de zonas conocidas como 
kilos de enlace. Estos kilos de enlace corresponden 
a múltiplis de 1024 bytes. 

Nuestro problema se refiere ahora a determi¬ 
nar la forma como ubicarnos con el string en la 
posición adecuada. 

La siguiente línea de programación resuelve 
la ubicación de nuestro string dentro de las carac¬ 
terísticas mencionadas. 


Digite cuidadosamente el listado: 


19 DIM FILLERiS(i) 

20 INICIO:(INT(ADR(FILLER1$>/1024)+1># 
1024 

30 ? INICIO 

40 FIN:ADR(FILLERi$)-l 
50 DIM FILLER2$(INICIO-FIN) 

60 ? INICIO-FIN 
70 DIM BUFFER$(384) 

80 ? ADR(BUFFER$) 
n DIM MI55ILE5$(Í28) 

190 ? ADR(MI55ILE5$) 


Comentario de líneas: 

10 Dimensiona un string de ubicación del kilo de 
enlace, mediante la variable Fl LLER$. 

20 Designa la variable INICIO. 

30 Edita el valor de variable. 

40 Designa la variable FIN. 

50 Dimensiona la variable Fl L.LER2$ como varia¬ 
ble de calce con el nuevo kilo de enlace. 

60 Edita el valor de calce con el nuevo kilo de en¬ 
lace. 

70 Dimensiona la variable BUFFER$ con 384 by¬ 
tes una de las áreas de PMG. 

80 Edita el valor de ubicación de este string. 

90 Dimensiona el string MISSILE$ con 128 bytes 

100 Edita la ubicación en memoria para este string . 


Ahora podemos decir que encontramos el me¬ 
dio para localizar nuestros strings que contendrán 
el área de PMG en forma tal que inicien a un kilo 
de enlace de memoria. 

El esquema a continuación muestra la disposi¬ 
ción en la memoria del área de PMG manteniendo 
la ubicación dentro de los kilos de enlace. 

2040 


FILLER25 

7 BYTES 


FILLERlS 1K BOUNDARY 

(1 BYTE) (2048) 


Recuerde que para la designación y ubicación 
de dimensión de string es: 

a) Buffer con 384 bytes. 

b) Missil con 128 bytes. 

c) Player 0 con 128 bytes. 

d) Player 1 con 128 bytes. 

e) Player 2 con 128 bytes. 

f) Player 3 con 128 bytes. 

El total de bytes usados es de 1024 = 1 kilo. 



UBICANDO UN PLAYER 
EN PANTALLA 

Con las etapas anteriores: 

1. Un player, la figura del caminante, mediante 
los bits en números binarios, se tradujo en 11 
números decimales. 

2. Definida un área para ubicar los datos del pla¬ 
yer, con la técnica de manipulación del string. 

Ahora corresponde: 

3. Inicializar el área de PMG en memoria con 
valores 0. 

La siguiente línea ocupa la técnica de propaga¬ 
ción del string inicial iza con el valor 0 el string 
BUFFER$. Luego igualando los siguientes strings 
con BUFFER$ se logra la etapa definida en toda 
su extensión. 
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TUTORIA: continuación 


Digite cuidadosamente las siguientes líneas: 


11000 rem rutina de inicialización de 

STRING 

11010 DIM FILLER1$(1).FILLER2$((INT(AD 
R(FILLERlS)/1024)U)*1824-ADR(FILLER1$ 
)-l> 

11920 DIM BUFFER$(384),MI55ILE$(i28).P 
LAYER0SÍ128).PLAYER1$(128),PLAYER2SC12 
8),PLAYER3$(128) 

11830 BUFFER$=CHR$(0) 

11040 BUFF£R$(384)=CHR$C0) 

11050 BUFFERS(2)=BUFFER$ 

11060 MIS5ILE$=BUFFER$:MI55ILE$=BUFFER 
$:PLAYERB$-BUFFER$:PLAYERi$=BUFFER$:PL 
AYER2$=BUFFER$:PLAYER3$=BUFFER$ 


Comentario de líneas: 

11000 Comentario de destino de ubicación de 
rutina. 

11010 Líneas de programa con el usp de 2 strings 
FILLER1$ y FILLER2S para asegurar el ini¬ 
cio de un kilo/enlace detallado anteriormente. 
11020 Dimensiona los strings para las diferentes 
áreas de PMG: 

BUFFERS, MISSILES, PLAYEROS, PLAYER 
1S, PLAYER2S y PLAYER3S. 

11030 Llena con valores 0 el string BUFFERS, en 
su primera ubicación. 

11040 Llena con 0 la última posición del string 
BUFFERS. 

11040 Propagación en las posiciones intermedias 
del string. 

11050 Iguala la inicialización con 0 ocupando el 
string BUFFERS, por comparación. 

Digite cuidadosamente el listado y ejecute con 
la instrucción RUN. 

Para comprobar la inicialización digite en mo¬ 
do directo: 

PRINT BUFFERS 

Nuestro problema ahora es colocar los datos 
del Player (caminante) en el área de PMG. 

4. Dimensionando un string para colocar la figu¬ 
ra del player (caminante),. 

Designaremos a este string con el nombre de 
FIGURAS, y ella contendrá los datos decimales 
para nuestro player. 

La cantidad de posiciones que requiere son 1 b 
ya determinadas en páginas anteriores. 

El siguiente listado contendrá las instrucciones 
necesarias para cumplir con este punto. 


11100 REM RUTINA PARA COLOCAR DATOS DE 
FIGURA EN STRING 
11110 DIM FIGURAS(15) 

11120 FOR 1=1 TO 15 
11130 READ D 

11140 FIGURAS(I.I)=CHRS(D) 

11150 NEXT I 

11190 DATA 0,0,28,28,8,28,58,89,24,40, 
76,68,68,0,8 

_._ 

Comentario de líneas: ( 1 1100 en adelante) 

11100 Comentario de uso de rutina. 

11110 Dimensiona el string FIGURAS con 15 
posiciones. 

11120 Ciclo de variable I para colocar los datos 
en el string FIGURAS. 

11130 Lee uno de los valores decimales, de línea 
de DATA 11190. 

11140 Coloca el valor decimal en el formato 
CHR$, utilizando el carácter asociado a este 
decimal. Ver al respecto el Apéndice de la 
publicación ABC 1 o Tabla de Referencia de 
MUNDOATARI. 

11150 Continúa con el ciclo hasta el valor 15 de 
la variable. 

11190 Línea de datos que contienen los corres¬ 
pondientes a la figura del caminante. Ver fi¬ 
gura anterior con la relación binario a decimal. 


5. COLOR ASOCIADO CON LA FIGURA 

Se puede controlar con facilidad el color aso¬ 
ciado a un player colocando un valor determinado 
en la localización de memoria correspondiente al 
player. 

Los colores correspondientes se encuentran en 
el ABC 1 de MUNDOATARI. A continuación se 
entrega un ejemplo: 

La siguiente línea: 

POKE 704,16 

proporciona al Player 0 un color dorado. ® 
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PROGRAMAS 



El uso del Slntetlzador de Voz (SAM) genera pro¬ 
blemas en el Vertical Blank en el momento de emi¬ 
tir sonidos, lo que hace desmerecer la evaluación 
de un programa que ¡nteractúe con este utilitario. 


MUNDOATARI proporciona este mes un uti¬ 
litario complementario al SAM que elimina el 
problema mencionado. 

Digite el listado siguiente y sálvelo con la ins¬ 
trucción: 

LIST"C:'' (para catate) 

LIST"D:SAMMAS (para diskette) 

Para usar este programa debe cargar primero. 
en la memoria el programa SAM y a continuación 
el utilitario de este mes con la instrucción: 

ENTER"C:" (para casatte) 

ENTER "DrSAMMAS (para diskette) 

Ejecute con RUN para tener una demostra¬ 
ción hablada dé su computador. 


56 REH PROGRAMA PARA USAR CON EL SAH 
115 GOTO 155:REM RUTINA DE CHEQUEO 
125 REM RUTINA 5ETE0 CARACTERES 
130 REM DI5PLAY MODO GRAFIC04 
135 JW=57344+CP#8-1:REM LOCALIZA CARAC 
TERES EN ROM 

140 FOR ME=SM TO SM+78 STEP 10:JH=JH+1 
:POKE ME.PEEKÍJW):NEXT MEíRETURN 
145 REM 

159 REM PANTALLA INICIAL 


155 GRAPHICS 0:POKE 752,1:5AM=8192 
168 POSITION 6,3:? "DEMO SAM HUNDOATAR 
I n 23 POSITION 9,6 
165 REM 

170 REM ENCUENTRA A SAM EN MEMORIA 
175 IF PEEKISAM)=104 AND PEEK(SAM+1)=7 
6 THEN ? " S.A.M. EN RAM "¡SAHFLAG 
=1:G0T0 185 

180 ? "S.A.M. AUSENTE DE RAM":5AMFLA6= 
0 

185 IF NOT 5AMFLAG THEN 225 
190 REM 

195 REM POKE S.A.M. 

200 POKE 8550,234:POKE 8551,234:POKE 8 
552,234 

205 POKE 8208,60:POKE 8209,60 

218 POKE 8554,14:POKE 0559,13:POKE 856 

4.10 

215 REM 

228 REM CONVIERTE DATOS EN STRING 
225 POSITION 2,9:? "CREANDO D6$ DE 
DATA": 

230 REM 

235 REM DESPLIEGA DOT POR CADA BYTE 
240 DIM D6$ (184) 

245 FOR ME=1 TO 184:READ IT :D6$(ME.HE) 
=CHR$(IT):? :NEHT ME 
250 REM 

255 REM MAS RESERVAS 

260 GRAPHICS 6;DL=PEEK(560)+256«PEEK(5 

61):REM ENCUENTRA LISTA DESPLIEGUE 


t> 
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PROGRAMAS: continuación 


265 DIH 5AH$(20),LINE$Í20),AL$(138) 

270 REM 

275 REH DEFINE EL ALFABETO DE 5AM 
280 AL$="EYY4 BIYY45IYY4DIYY4IYY4 EH4F 
DJIY4EY4CHAY4 " 

285 AL$ (LEN (AL$> +1) ="JEY4 KEY4 EH4L EH 
4H EH4N 0144 PIY4 KYUM4AA4R " 

298 AL$(LE1KAL$)+1)="EH45 TTIY4YUH4 VI 
Y4 WHWWHEH4KSWAY4 ZIY4 “ 

295 REH 

308 REH SETUP LISTA DE DESPLIEGUE 
365 POKE DL+3,75,:F0R M£=DL+6 TO DLU3: 
POKE ME. 11 ¡NEXT HE 

310 FOR ME=DL+14 TO DL+49:P0KE ME,9:HE 
HT ME 

315 FOR ME-DL+50 TO DL+64:PQKE ME.lllN 
EXT ME 

320 POKE DL+65 , 65 : POKE DL+66,PEEKC560) 

:POKE DL+67 . PEEK(561) 

325 REH 

330 REM USA IOCB «5 PARA EL TECLADO 
335 CLOSE »5:0PEH tt5.4,0, "K!" 

348 REM 

345 REH AHORA LISTO PARA 

350 REM DESPLEGAR LA LIHEA 

355 LINE$="DRAMTEXT' , :PX=7:PY=i:G05UB 6 

40 

368 REM 

365 5M=PEEK(88)+256#PEEK(89) : REM LOCAL 
IZA LA PANTALLA EH MEMORIA 
370 5M=5M+302:REM AGREGA OFFSET PARA C 
ENTRAR PANTALLA 
.375 REM 

380 REM DESPLIEGA "SAM EH MODO 4 
385 CP=A5C("5")-32:G0SUB 135 
390 CP-ASC (*'.") -32 : SI^SM+1 ! GOSUB 135 
395 CP=ASC("A")-32:SM=5M+1:GOSUB 135 
400 CP=A5C("." ')-32 :SM=SM+l:GOSUB 135 
405 CP=ASCC ,, M") -32 :5M=SM*1: GOSUB 135 
410 CP-ASC(“ . ")“32 : SM=5M+i : GOSUB 135 
415 REM 

420 REM DESPLIEGA INSTRUCCIONES 

430 PX=i:LINE$="TIPEA UNA LETRA 

435 FOR PY-36 TO 28 STEP -1;GQSUB 648; 

NEXT PY 

440 REM 

450 FOR PY=41 TO 34 STEP -ÜCOLOR 8:PL 
OT 0,PY:DRAHTO 159, PY: NEXT PY 
455 REM 

468 REM RUTINA INGRESO POR TECLADO 
465 POKE 764 . 255 : PX=18:PY=36 
4?b IF PEEK Í7S4Í -255 THEN 470 


475 6ET It5,KEY:IF KEY<65 OR KEY>96 THE 
N KEY=63:REM SOLO LETRAS 
488 LINE$=CHR$ÍKEY)¡GOSUB 648:REM EDIT 
A EL CARACTER 

485 IF NOT SAMFLAG THEN 465:REM ESPER 
A POR OTRA TECLA 

498 IF KEY=63 THEN SAM$-'*UH1P5 U : GOTO 5 
15:REM DESPLIEGA ? Y DICE “OOPS" 

495 REM 

560 REM MIRA EN EL DICCIONARIO DE SAM 
585 STINDEX=KEY-65:SAM$=AL$(STINDEX*5+ 
i,5TINDEX*5+5) 

510 IF 5AM$="KHHHW" THEN SAM$="DAH4BUL 
YUM6":REM W 

515 5AM$(LEN(SAM$)+1)=".":TALK=USR(SAM 

):REH HABLA SAM 

528 GOTO 465:REM DE NUEVO SAM 

525 REM 

535 DATA 184,104.133,284,104,133,203,1 
04,104,141 

548 DATA 0,6,184,104,141,1,6,286,1,6 
545 DATA 184.104,141,2.6,206.2,6,173.4 
8 

550 DATA 2,133,287,173.49,2,133,208,16 
0,4 

555 DATA 177,207,141,4,6,200,177,207,1 
41,5 

560 DATA 6,172,2,6,240,17,24,173,4,6 
565 DATA 185,20.141,4,6,144,3,238,5,6 
578 DATA 136,208,239,24,173,4,6,109,1, 

6 

575 DATA 141,4,6.144.3,238.5,6,169,0 
580 DATA 141,3,6,172,3.6,204,0,6,176 
585 DATA 82.169,0,133.286,177.203,56,2 
33,32 

598 DATA 133,205,24.6.285,38,206,6,205 
.38 

595 DATA 286,6,205,38,206,165,206,9,22 - 
4.133 

680 DATA 206,173,4,6,133,207,173.5,6,1 
33 

605 DATA 208,168,0,162,6,177,205,145,2 
67,230 

610 DATA 205,208.2,230,206,24,165,287, 
105.20 

615 DATA 133,207,144,2,230,208.282,16, 
232,238 

620 DATA 3,6,238,4,6,268,3,238,5,6 
625 DATA 56,176,166,96 
630 REM 

648 ASM=USR(ADR ÍD6$).ADR(LINE$),LEN(LI 
NE$),PX,PY):RETURH • 
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DISKETTE 



XF-551 


Para accesar desde la diskettera XF-551 con el nue¬ 
vo Sistema Operativo DOS XE a los archivos gra¬ 
bados con el DOS 2.5 se debe utilizar la opción 
Allow DOS 2.X Access que se encuentra al final 
del menú de fundones del Sistema. 


Para ejecutar esta opción proceda de la si¬ 
guiente manera: 

1. Oprima la letra A seguida de RETURN en la 
opción Allow DOS 2.X Access, con lo cual se 
cargará el archivo DOS 2.5 en la memoria del 
computador. 

2. Coloque en la' XF-551 el diskette grabado con 
DOS 2.5/2.0S. 

3. Desde el menú principal digite F y RETURN 
para pasar al menú de acceso de archivos. 

4. Digite nuevamente F y RETURN, con lo cual 
el computador escribirá en pantalla: 

FILES LISTING 


LIST WHAT FILES?: *.* 

5. A continuación digite A: *.* y RETURN. 

En pantalla obtendrá el listado de todos los 

archivos contenidos en el disco y que fueron 

grabados mediante el DOS 2.5 / 2.0S. 

Recuerde que los archivos grabados con el an¬ 
terior DOS 2.5 se denominan en el DOS XE con el 
mismo nombre de archivo con que fueron graba¬ 
dos originalmente, sustituyendo la letra D por la 
A, en el Filenamespec. 

Así, para cargar un archivo grabado con DOS 
2.5 digite desde del BASIC: 

LOAD "A: nombre de archivo" 

Posteriormente, para grabarlo al disco forma¬ 
teado con DOS XE coloque el disco correspon¬ 
diente y digite desde BASIC: 

SAVE"D nombre de archivo" 
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Dominando 
la 1050 



A petición de los usuarios que quieren estudiar el 
diskette y las diferentes opciones con los progra¬ 
mas analizaremos uno de los mejores programas 
para este objeto: SCANALYSER de Alpha System. 


Este programa contiene 7 módulos que pre¬ 
sentan alternativas diferentes de uso de acuerdo 
a su necesidad: 

1. BASIC Lister 

2. Directory Finder 

3. Cartridge Reader 

4. Disk Scanner 

5. Data Analyser 

6. Disk Backup 

7. Intro Displaty. 

Al cargar el programa aparece en pantalla un 
menú con estas opciones. A continuación exami¬ 
naremos cada una de ellas indicando su funciona¬ 
lidad y extensión de uso como también las limita¬ 
ciones detectadas. 

1. BASIC LISTER 

Existen formas de proteger un programa mo¬ 
dificando la ubicación de la lista de variables para 
la instrucción LIST. De este modo al digitar la 
instrucción LIST no aparecen las líneas de pro¬ 
gramación. 

En algunas oportunidades es interesante cono¬ 
cer los listados de programas para conocer algunos 
de los secretos utilizados por los programadores 
para producir un determinado efecto. 

Limitación: 

Puede realizarse sólo para aquellos programas 
que se encuentran en lenguaje BASIC. 

¿Cómo saber si un programa se encuentra en 
dicho lenguaje? 

1. Inicialice su configuración con el DOS 2.5. 

2. Inserte el disco con el programa en BASIC a 


analizar. 

3. Digite la opción A para identificar los nom¬ 
bres en el directorio. Anote los nombres. Si 
no aparece el nombre deberá buscar el direc¬ 
torio en el disco, pues no se encuentra ubica¬ 
do en forma normal. Se usa la opción Direc¬ 
tory Finder en este mismo utilitario. 

4. Regrese al BASIC con la opción B. 

5. Cargue el programa en memoria digitando pa¬ 
ra ello: 

LOAD "D:PROGRAM.EXT” 

en que reemplazará PROGRAM.EXT por el 

nombre identificado en el Directorio. 

Si aparece el mensaje READY indica que el 
programa se encuentra en BASIC. 

Digite LIST y RETURN. 

Si aparece el listado es que no se encuentra 
protegido y puede analizarlo a voluntad. 

Si no aparece el listado después del comando 
LIST deberá usar la opción I de este utili¬ 
tario. 

Si aparece el mensaje ERROR 21 significa 
que el programa no está en BASIC y no es 
posible usar esta opción en el programa a 
analizar. 

Usando la opción UNO. 

Seleccione la opción 1 del menú principal. 
A continuación inserte el diskette con el progra¬ 
ma en análisis en el Drive. Este debe encontrarse 
abierto, sin la protección. 

Como precaución trabaje con una copia de 
este programa en otro diskette. 

Digite el número de la diskettera a usar. El 
número 1 en el caso que no tenga una segunda 
diskettera. 

Seleccione el nombre del archivo a analizar. 
Luego se produce el despliegue de la tabla de 
variables. 

Las alternativas son: 
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DISKETTE 


— La tabla de variables tiene un formato normal, 
como por ejemplo A, B, DA$, etc. y usted 
debe presionar Y (si) en este caso. 

— La tabla de variables aparece sin sentido, con 
caracteres que no son inteligibles. Para ello 
debe eliminar estas variables y se procede a 
crear una nueva tabla de variables en que las 
variables numéricas son asignadas con la letra 
N y las alfanuméricas (strings) con S$ el 
número que sigue las diferencia a medida que 
aparecen en el programa al revisar y crear la 
nueva tabla de variables. 

El mensaje a continuación indica la ubicación 
del archivo creado: 

A: Impresora para el análisis. 

B: Pantalla. 

C: Archivo. 

En el caso de usar la opción C como archivo, 
éste se almacena con el comando LIST y por lo 
tanto al llamarlo use la instrucción ENTER. 

2. DIRECTORY FINDER 

Este utilitario presta la funcionalidad de ubi¬ 
car el directorio para aquellos programas que lo 
encuentran protegido en otros sectores diferentes 
a los normales (ver en MUNDOATARI No 0 las 
ubicaciones entre 360-368). 

Una de las técnicas de protección es mover 
el directorio modificando los punteros del DOS 
para tener un DOS modificado que permite acce- 
sarlos. 

De ser esta la opción y el diskette tenga un 
directorio en otros sectores, este utilitario lo iden¬ 
tificará e indicará los números de sectores que lo 
contienen. 

Es importante indicar que existen una canti¬ 
dad de programas comerciales que no usan direc¬ 
torios, pues utlizan Boot sectores, y en éste caso 
el utilitario no encontrará el directorio. 

Al ejecutar el programa aparecen 4 opciones: 

1. Reejecuta el programa. 

2. Regresa al programa principal. 

3. Copia archivo a disco normal. 

4. ' Despliega el directorio modificado. 

5. Despliega el directorio normal. 

La opción 3 permite mover el archivo desde 
el diskette con directorio oculto hacia uno nor¬ 
mal, pero previamente debe tener un diskette 
formateado para colocar estos nuevos archivos 
en el diskette normal. 

3. DATA ANALYSER 

Esta herramienta es útil para analizar progra¬ 
mas en lenguaje de máquina para transformarlo 
en códigos en Assembler que tienen un significado 
más perceptible. 


La serie de números, que se trasladan a las 
instrucciones mnemonic del Assembler aparecen 
en pantalla y pueden ser enviados a la impresora 
para su análisis posterior. 

Este utilitario permite analizar en diferentes 
medios: 

A. En la memoria. 

B. En el diskette (cargables con la opción L 
del DOS). 

C. En BOOT sectores del diskette. 

D. Cualquier sector del diskette. 

La salida de códigos en Assembler van hacia la 
pantalla, pero pueden salir hacia la impresora o co¬ 
mo un nuevo archivo para analizar con un Assem¬ 
bler como el EDITOR, etc. 

Para trabajar con la memoria es conveniente 
direccionarla con números hexadecimales o deci¬ 
males. El símbolo $ inicial reconoce la diferencia 
en la entrada. 

Para trabajar con el diskette: 

D: PROGRAM.EXT 

El ingreso de códigos a analizar puede tener 
las opciones siguientes: 

A. De la memoria. 

B. De archivo binario (file). 

C. De sectores Boot (juego que contiene uno 
solo el disco). 

D. De sectores arbitrarios. 

A. MEMORIA 

Debe indicar sólo la localización de memoria 
para el análisis. 

B. ARCHIVO BINARIO 

Debe indicar el nombre del programa a anali¬ 
zar. 

Luego procede con el análisis de 30 segmentos 
que corresponden a rutinas para un determinado 
trabajo. 

C. PROGRAMA BOOT. 

Debe insertar el diskette con el programa que 
lo contenga y continuar con su trabajo. 

D. SECTORES ARBITRARIOS 

Los mensajes deben indicar los números inicia¬ 
les y finales para el análisis, como la ubicación en 
la memoria. 

Luego proceda a especificar la ubicación de la 
salida para el programa en Assembler: 

A. Disco 

B. Impresora 

C. Pantalla. 
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PROGRAMAS 


Este programa que presenta MUNDO ATAR! es 
especial para los nuevos usuarios de las impresoras 
Panasonic. 


Digite cuidadosamente el listado siguiente, te¬ 
niendo la precaución de salvarlo en diskette con 
la instrucción: 

SAVE"D: LISTADO" 

La aplicación de este programa permite listar 
aquellos caracteres que son usados como funciones 
y que producen normalmente una deformación 
en el formato de salida de la impresora. 


MUNDOAT ARI 


Listador para Impresoras 


68 B$=" "! RS= ,, REM" 

78 OPEN «*2,4,8, ,, K:":60SUB 658 
88 CLOSE 112!PK-PEEK(559) !POKE 559,8 
98 TRAP 728:0PEM B1.4,0,F$:OPEN «14,0,8 
."P:":INPUT «i¡AS 

188 ? B4;CHR$IT):B$;F$;B$(7);"Pa 9 ina " 
;PG;B$(7) ;5$;B$(7);D$:? 1*4:? ««4 
118 ? «*4;B$; n ! f = Inverso";B$t7)1 
= Control";B$(?)> = Control Inver 
so":? »4:L=5:PG=P6+1:G0T0 148 
120 REH OBTIENE DATOS 
138 TRAP 728:INPUT 1*1, A$ 

148 C=LEN íAS):RF=0:QF=8:5=0:LL=65#CT=1 
8m20*CT=15) 

150 REH VERIFICA REM Y HUMEROS LINEA 
168 FOR 1=1 TO C:A=ASC(A$(I,I)) 

170 IF A=34 OR A>159 THEN QF=1:G0T0 19 
8 

180 NEKT I 


20 REH * MUNDOATARI 00 * 

30 REH * ABRIL 1989 * 

40 REH XMMMMMK S KMMKKItKK KXX 

58 DIH A$(580),F$(15).B$(20),R$C4), L$f 

12),Y$ti),D$120),S$f38) 










PROGRAMAS 


190 FOR M-2 TO 6 íIF A5C(ASÍN))<>32 THE 

N MEXT N 

200 IF A$ (N+l,N+3)<>R$ THEM RF=i 
210 IF RF=0 THEN ? «4íL=L+l 
220 5=6-M:? tt4!B$(12-5Ji"«■"¡ AS(1, N) ;*' 
«•; :N=N4-1 

230 IF QF=0 AND C<LL THEM ? tt4.A$CN):6 
OTO 590 

240 REN VERIFICA VALORES A5CI 

250 II=N:FÜR I=N TO C:A=ASCCA$(I,I)):I 

1=11+1 

295 IF IIXLL+7) THEH ? tt4jCHR$(155>;B 

$(5);:L=L+1;LL=LL+65*(T=18)+128*(T=15) 

300 IF A>31 AMD A<125 THEM 560 

310 IF A>159 AND A<254 THEM 490 

320 IF A>127 AMD A<155 THEM 430 

33© IF A<27 THEM 460 

340 RESTORE 

350 READ D.DL.LS 

368 IF D<>A THEM COTO 350 

365 IF (II+DL) > (LL+71 THEM ? tt4;CHR$Ci 

55)IBS(5)::L=L+1:LL=LL+65*(T=18)+128*( 

T=15) 

370 ? II4;"[";L$:")") :II=II+DL:MEXT I 
388 DATA 27,8.ESCAPE,28 f 4,ARRIBA,29,6, 
ABAJO,30, 6 .IZO,,31,7,DERECHA 
390 DATA 125.7,CLEAR.126,10,BACK SPACE 
,127,5,TAB 

40O DATA 156,13,DELETE LIME,157,13,IMS 
ERT LIME,158,11,CLEAR TAB,159,9,SET TA 

B 

410 DATA 253,6,BELL,254,8,DELETE,255,8 
,IM5ERT 

420 REM CARACTERES INVERSO 

430 IF A=128 THEM ? II4;"<,>";! 11=11+31 

MEXT I 

440 A=A-64J? 84;"<";CHR$(A);"> a j:II=II 
+2:MEXT I 

450 REM CARACTERES CONTROL 

460 IF A=0 THEM ? 84 :"[, 3 "J: 11=11+3: ME 

XT I 

470 A=A+64:? «4;"[";CHR$(A);")“;:II=II 
+2:MEXT I 

480 REM CARACTERES NORMAL INVERSO 
498 IF A=253 THEM ? 84;"<;>"; :II=II+S: 
MEXT I 

5O0 A=A~128:? 84:"|";CHR$(A);:II=II+2 
510 TRAP 540 J1=1+1:II=II+i:A=ASC(AS(I. 
I) ) : IF IIXLL+7) THEM ? 84;CHR$(155);B 
S(5)!:L=L+l:LL=LL+65#(T=18)+120*(T=15) 
520 IF A>159 AND A<253 THEM A=A-128:? 
»4;CHR$(A) ; '.GOTO 518 


530 ? 84:"|";:II=II+l;GOTO 295 
540 TRAP 838:? 84;"|";;? tt4:L=L+l;GOTO 
598 

558 REM IMPRIME UNA LINEA Y VA A MUEVA 
560 IF A=96 THEM ? 8411=11+2:N 
EXT I 

578 IF A=123 THEM ? «4;"C;]";:11=11+2: 
HEXT I 

580 ? 84:CHR$(A);:NEXT I:? 84 
590 L=L+l:IF L<60 THEM GOTO 138 
680 FOR NN=1 TO 6-(L-60):? #4:MEXT MN 
610 ? 84;B$;F$;B$(7>;"Page ";PG:? «4:? 
84:PG=PG+1:L=3:GOTO 130 


620 REM FINALIZA 

630 ? 84:POKE 559,PK:GRAPHICS 0:PO5ITI 
OM 12,8:? "COMPLETO "¡CLOSE 81:CLO 
SE 84:CLR :EMD 
640 REM TITULO 
658 GRAPHICS 8:? :? "► 

mr 


LISTADO 


660 ? :? :? " NOMBRE ARCHIVO :";:IMPU 
T FS 

665 IF F$(2,2)<>":" AMD F$(3,3)<>":" T 
HEM DS(1,2)=“D:":D$(3)=F$:F$=DS:D$(1) = 


.. ":DS(2)=D$ 

678 ? I? " FECHA";:IMPUT DS 
680 ? :? " FUENTE";:IMPUT 5$ 

690 ? :? " IMP.CONDENSADO (5 or M)"; 
¡IMPUT YS:IF YS<>"5" AND Y$<>"N" THEM 
? "tttt":GOTO 696 


700 IF Y$="5" THEM T=15:LL=120:PG=1:RE 


TURM 

710 IF Y$="N" THEM T=18:LL=65:PG=1;RET 
URM 

720 REM RUTINA ERRORES 

730 IF PEEK (195)=136 THEM 620 

740 TRAP 830:CLOSE 81:CL05E 84:P0KE 55 

9,PK:0PEN tt2 r 4,0 f *'K¡ 11 

758 IF PEEK (195)=178 THEM 790 

760 IF PEEKCÍ95)=138 THEM 810 

770 ? "N":POSITIOM 7,10:? "IMPOSIBLE I 

MPRIMIRLQ 

780 POSITIOM 7,12:? "PULSE RETURM ,OTR 
O INTENTO ":GET 82,Q:CLR :RUM 
790 IF PEEK(195)=17B THEM ? "X":POSITI 
ON 10,10:? "ARCHIVO INEXISTENTE » 

800 POSITIOM 7,12:? "PULSE RETURM OTRO 
INTENTO";GET 82,Q:CLR :RUH 
810 ? "N";POSITI0N 5,10:? "VERIFIQUE I 
MPRESORA PULSE RETURM":GET «2,O¡GOTO 8 
0 

820 ? It4;">"; :LM=LN-l:GOTO 300 • 
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TIPIANDO 


JUEGO DEL MES: 

Tanques 



El juego del mes sirve de complemento a la 
sección dedicada a Player/Missiles, para que usted, 
amigo lector, pueda profundizar y perfeccionar 
dicha técnica. 


Digite cuidadosamente el listado siguiente y 
salve en casete con las instrucciones: 

CSAVEy RETURN 

o bien en diskette con: 

SAVE "D: TANQUE.BAS 

Para ejecutar el programa digite RUN y pre¬ 
sione RETURN. 

El juego está diseñado para el antiguo ATARI 
800, que tiene 4 entradas para joystick. 

Si su computador es un modelo XL o XE, la 
posibilidad de accionar tanques se limita a 2. El 
campo de disparos es horizontal y vertical. 

Si usted prefiere puede eliminar los 2 tanques 
restantes anulando las I íneas 1170 y 1180. 

SUGERENCIAS: 

Usted puede adicionar características tales 
como: 

— movimiento diagonal de tanques (Player) 

— mantener en memoria el número de disparos 
efectuados. 

— agregar rutinas en máquina para acelerar la 
movilidad. 

Todas las modificaciones enviadas a nuestra 
casilla recibirán premios y serán publicadas en la 
sección Correo. 


10 DIN T0$(1),Tí$(l).T2$(l),T3$(1).M5L 
$(1),UP$Í14),DM$(14),LF$(14),RT$(14),H 
5L0$(13) ,H5L1$(13) ,H5L2$(13) ,M5L3$(13) 
20 G05UB 1290:GOTO 1150 
30 H0=H0+4:P0KE 53248,H0:T8$ (T8,T8+13) 


=RT$:F0R T-i TO 5:«EXT T:IF PEEK(53268 
) THEN H0=H0-4:POKE 53248.H8:RETURN 
40 IF PEEK(53252) THEH H8=H0-4:POKE 53 
248.H8:RETURN 

50 IF PEEK(644) OR H0=0 OR D8<10 THEH 
RETURN 

60 D0=0:N0=H0~1:POKE 53252,H0+8;M5L$(T 
0+6.T0+6)=CHR$(3):FOR X=H8+8 TO H0+95 
5TEP 6:POKE 53252,H 

70 IF PEEK(53256)>1 THEN POP ¡50=50*1¡ 
POKE 657,10:? 58::M5L$(T0+6,T0+6)=CHR$ 
(O)¡RETURN 

88 IF PEEK (53248) OR X>194 THEN POP :M 
5L$(T0+6.T0+6)=CHR$(0)¡RETURN 
98 NEXT X:M5L$(T0+6,T8+6)=CHR$(6);RETU 
RN 

190 HO=H0-4:POKE 53248,H8:T0$(T0,T0+13 
)=LF$:F0R T=1 TO 5:NEXT T:IF PEEK(5326 
0) THEN H0=H8+4:POKE 53248,H0:RETURN 
110 IF PEEK(53252) THEN H0=H8+4:POKE 5 
3248,HO:RETURN 

120 IF PEEK(644) OR N0=0 OR D8<10 THEH 
RETURN 

138 D0=8:M0=H8-1:M5L$(T0+6,T0+6)=CHR$ ( 
3):FOR X=H0 TO H0-87 5TEP -6:POKE 5325 
2.X 

148 IF PEEK(53256)>1 THEN POP :S0=S0+i 
iPOKE 657.10:? 50::M5L$(T0+6,T0+6)=CHR 
$(8)¡RETURN 

158 IF PEEK(53248) OR X<46 THEN POP :M 
5L$ (T8+6, T8+6) =C-HR$ (8) : RETURN 
168 NEXT X:N5L$(T0+6,T0+6)=CHR$(8)!RET 
URN 

170 T0=T0+3:T0S(T0.T8+13)=DM$:FOR T-l 
TO 7!NEXT T:IF PEEK(53260) THEN T8=T0- 
3:T0$(T8.T0+13)-DW$:RETURN 
Í80 IF PEEK (53252) THEN T8=T0-3;T8$(T8 
,T0+13)-DH$:RETURN 

190 IF PEEK(644) OR K8=0 OR T0>74 OR D 
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TIPIANDO 


9<16 TMEM RETURN 

200 00=0; N0=M8~1: POKE 53252, H8+4;F0R X 
=T0+14 TO 88 5TEP 6:H5L$(X,X+6)=M5L0$( 
1,7) 

210 IF PEEK(53256)>1 THE* POP :50=50+1 
;POKE. 657,103? 50;3«51?(»+§,K+6)=CHR $l 
0);RETURH 

228 IF PEEK(53248) TMEM POP :HSL$(X+6, 

X+6)=CHR$(0)!RETURM 

230 MEXT X3H5L$ (X,X) =CHR$ (0) ; RETliRN 

240 T0=T0-3;T0$(TO,T0+13)=UP$:FOR T=1 

TO 7: MEXT T:IF PEEK(53260) THEM T8=T0+ 

3!T0$(TO.T0+13)=UP$:RETURM 

250 IF PEEK(53252) THEM T0=T0+3JT0$(T0 

,T0+13)=UP$:RETURM 

260 IF PEEK(644) OR M0=0 OR O0<10 THEM 
RETURH 

270 D0=0:M0=M0~1:POKE 53252,H0*4:FOR X 
=T0-2 TO 16 5TEP -6;H5L$(X,X+6)=M5L0$( 
7,13) 

280 IF PEEK(53256)>1 THEM POP 350=50+1 
¡POKE 657,103? 50!3H5L$(X,X)=CHR$(0)3R 
ETURM 

290 IF PEEK(53248) THEM POP ¡MSL$(X,X) 
=CHRS(0)3RETURM 

300 MEXT X:MSL$(H*6,X+6)=CHR$(0)3RETUR 

M 

310 Hl=Hi+4¡P0KE 53249,H13Tl$(TI,Tl+13 
)=RT$:FOR T=1 TO 53MEXT T:IF PEEK(5326 
1) THEM Hi=Hl-4:P0KE 53249.H13RETURM 
320 IF PEEK(53253) THEM H1=H1-4:P0KE 5 
3249,H13RETURM 

330 IF PEEK(645) OR Ml=8 OR 0i<18 THEM 
RETURM 

348 01=03M1=M1~1:POKE 53253,H1+8:H5L$( 

Tl+6.T1+6)=CHR$(12)¡FOR X=Hl+8 TO Hl+9 

5 5TEP 6¡POKE 53253,X 

350 IF PEEK(53257)>0 AMO PEEK(53257)O 

2 THEM POP 351=51+13POKE 657,183? 51;3 

M5L$(Tl+6,Tl+6)=CHR$(0)3 RETURM 

360 IF PEEK(53249) OR X>154 THEM POP 3 

M5L$(Tl+6,Tl+6)=CHR$(0)3 RETURM 

370 MEXT X¡H5L$(T1+6,T1+6)=CHR$(0)¡RET 

URN 

380 H1=H1-4SP0KE 53249,H13Tl$(TI.Tl+13 
)=LF$3F0R T=1 TO 53MEXT T:IF PEEK(5326 
1) THEM Hl=Hl+4¡POKE 53249.H13RETURM 
398 IF PEEK(53253) THEM Hi=Hl+4;P0KE 5 
3249,H1¡RETURM 

409 IF PEEK(645) OR M1=0 OR Ol<10 THEM 
RETURM 

418 01=0:Mi=Ml-l:H5LS(Tl+6,Tl+6)=CHR$( 


12)¡FOR X=H1 TO Hl-87 5TEP -63POKE 532 
53,X 

420 IF PEEK(53257)>0 AMO PEEK(53257)O 

2 THEM POP 351=51+13POKE 657.18;? 5133 
H5L$(Ti+6,Tl+6)=CHR$(0)3 RETURM 

430 IF PEEK(53249) OR X<46 THEM POP ;M 
5L$(Tl+6,Tl+6)=CHR$(0)¡RETURM 
440 MEXT X:H5L$(T1+6,T1+6)=CHR$(0):RET 
URH 

450 T1=T1+3:T1$(T1,T1+13)=DW$:F0R T=1 
TO 73MEXT TÜF PEEK(53261) THEM T1=T1- 

3 3 Ti$(Ti,Tl+13)=0H$3 RETURM 

460 IF PEEK (53253) THEM T1=T1~33 TI?(TI 
,Tl+13)=0W$:RETURM 

470 IF PEEK (645) OR M1=0 OR Tl>74 OR O 
1<10 THEM RETURM 

480 01=0:H1=M1 - 13POKE 53253,H1+4:FQR X 
=T1+14 TO 88 5TEP 6;M5L$(X,X+6)=M5Li$( 
1,7) 

490 IF PEEK(53257)>0 AMO PEEK(53257)O 

2 THEM POP :51=51+1¡POKE 657,18:? SI:3 
M5LS(X+6,X+6)=CHR$(0)3 RETURM 

580 IF PEEK(53249) THEM POP :H5L$(X+6, 
X+6)=CHR$(0);RETURM 
510 MEXT X:H5L$(X,X)=CHR$(0)3 RETURM 
§20 Tl=Tl-3 311$ (Tl'ül+13) =ÜP5 3 FOR T=i 
TO 7;MEXT TÜF PEEK(53261) THEM T1=T1 + 

3 3 Tl$(TI,Tl+13)=UP$ 3 RETURM 

530 IF PEEK(53253) THEM T1=T1+3:T1$(T1 
,Tl+13)=UP$3RETURM 

540 IF PEEK(645) OR K1=0 OR Ol<10 THEM 
RETURM 

558 01=03H1=M1~13POKE 53253.H1+43F0R X 
=Tl-2 TO 16 5TEP -6:M5L$(X,X+6)=MSLlS( 
7,13) 

560 IF PEEK(53257)>0 ANO PEEK(53257)O 
2 THEM POP :51=51+13POKE 657,18;? 51;: 
N5L$(X,X)=CHR$(0)¡RETURM 
570 IF PEEK(53249) THEM POP ¡MSL$(X.X) 
=CHR$ (0)¡RETURM 

580 MEXT X 3 M5L$(X+6,X+0)=CHR$(0):RETUR 

N 

590 H2=H2+4;P0KE 53250,H2:T2$(T2,T2+13 
)=RT$:FOR T=1 TO 5:MEXT T:IF PEEK(5326 
2) THEM H2=H2 _ 4;P0KE 53250,H23RETURM 
680 IF PEEK(53254) THEM H2=H2~4:P0KE 5 
3259,H2:RETURM 

610 IF PEEK(646) OR M2=0 OR 02<18 THEM 
RETURM 

620 02=0;M2=H2~13POKE 53254,H2+8:M5L$( 
T2+6,T2+6)=CHR$(48)3FOR X=H2+8 TO H2+9 
5 5TEP 63POKE 53254,X 
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TIPIANDO: continuación 


638 IF PEEK(53258)>8 AND PEEK (53258)O 

4 THEH POP ;52=52*1:P0KE 657.27;? 52;; 

M5L$(T2+6,T2+6)=CHR$(0)¡RETURN 

648 IF PEEK (53250) OR X>194 THEH POP : 

M5L$(T2+6,T2+6)=CHR$(0)¡RETURH 

656 HEXT X:H5L$(T2+6,T2+6)=CHR$(0):RET 

IIRH 

668 H2=H2-4;P0KE 53250,H2:T2$(T2,T2+13 
)=LF$;F0R T=1 TO 5:MEXT T:IF PEEK(5326 
2) THEH H2=H2+4;P0KE 53250,H2:RETURH 
678 IF PEEK(53254) THEH H2=H2+4;P0KE 5 
3250,H2:RETURH 

680 IF PEEK(646) OR H2=8 OR D2<10 THEH 
RETURH 

690 D2=8;H2=H2-1:H5L$(T2+6,T2+6)=CHR$( 
48);FOR X=H2 TO H2-87 5TEP *6:P0KE 532 
54,X 

780 IF PEEK (53258)>0 AHD PEEK(53258)O 

4 THEH POP ;52=52+1:P0KE 657,27;? 52;; 

M5L$(T2+6,T2+6)=CHR$(8);RETURH 

710 IF PEEK(53250) OR X<46 THEH POP ;M 

5L$ ÍT2+6,T2+6)=CHR$(6):RETURH 

720 MEXT X;H5L$(T2+6,T2+6)=CHR$(0):RET 

URH 

730 T2=T2+3;T2$(T2,T2+13)=DW$:F0R T=1 
TO 7:MEXT T:IF PEEK(53262) THEH T2=T2~ 
3;T2$(T2,T2+13)=DW$:RETURH 
746 IF PEEK(53254) THEH T2=T2~3:T2$(T2 
, T2+13)=DW$;RETURH 

758 IF PEEK(646) OR H2=8 OR T2>74 OR D 
2<18 THEH RETURH 

760 02=0:H2=H2 _ 1;POKE 53254,H2+4;F0R X 
=T2+14 TO 88 5TEP 6:H5L$(X.X+6)=M5L2$( 
1,7) 

778 IF PEEK(53258)>8 AHD PEEK(53258)O 

4 THEH POP ;52=52+l:P0KE 657,27;? 52;; 

M5LS(X+6,X+6)=CHR$(0);RETURH 

788 IF PEEK(53250) THEH POP ¡H5L$(X+6, 

X+6)=CHR$(0):RETURN 

798 MEXT X:HSL$(X,X)=CHR$(0):RETURH 

800 T2=T2-3;T2$(T2,T2+13)=UP$;F0R T=1 

TO 7:HEXT T;IF PEEK(53262) THEH T2=T2+ 

3;T2S(T2,T2+13)=UP$;RETURH 

810 IF PEEK(53254) THEH T2=T2+3;T2$(T2 

,T2+13)=UP$:RETURN 

828 IF PEEK (6455 SR S2=3 OR ¡>2<10 THEH 
RETURH 

838 D2=8:M2=M2~1:POKE 53254,H2+4:FOR X 
=T2-2 TO 16 5TEP -6;H5L$(X,X+6)=M5L2$( 
7,13) 

848 IF PEEK(53258)>8 AND PEEK(53258)O 
4 THEN POP i52=52+1;POKE 657,27;? 52;; 


M5L$ (X,X)=CHR$(0);RETURN 

858 IF PEEK(53258) THEH POP :M5L$(X,X) 

=CHR$(8)¡RETURH 

860 HEXT X:M5L$(X+6,X+6)=CHR$(0)¡RETUR 

N 

878 H3=H3+4;POKE 53251,H3;T3$(T3,T3+13 
)=RT$;F0R T=1 TO 5:HEXT T;IF PEEK(5326 
3) THEH H3=H3-4:P0KE 53251.H3;RETURN 
880 IF PEEK(53255) THEH H3=H3~4;P0KE 5 
3251,H3:RETURN 

890 IF PEEK(647) OR H3=0 OR D3<18 THEN 
RETURH 

900 03=0;M3=M3-1;POKE 53255.H3+8¡M5L$( 

T3+6,T3+6)=CHR$C192);FOR X=H3+8 TO H3+ 

95 5TEP 6¡POKE 53255.X 

510 IF PEEK (53255)>0 AND PEEK (53259)O 

8 THEH POP ;53=53+1;POKE 657,37;? 53;: 

H5L$(T3+6.T3+6)=CHR$(0):RETURH 

926 IF PEEK(53251) OR X>194 THEN POP : 

M5l$(T3+6,T3+6)=CHR$ ( 0 ) ;RETURH 

930 NEXT X;MSL$(T3+6,T3+6)=CHR$(8)¡RET 

URN 

940 H3=H3-4:P0KE 53251,H3¡T3$(T3,T3+13 
)=LF$:F0R T=1 TO 5;NEXT T¡IF PEEK(5326 
3) THEH H3=H3+4;P0KE 53251,H3¡RETURH 
950 IF PEEK(53255) THEH H3=H3+4¡P0KE 5 
3251,H3¡RETURH 

966 IF PEEK(647) OR M3=0 OR D3<10 THEH 
RETURN 

970 03=0:M3=N3-1;H5L$(T3+6,T3+6)=CHR$( 
192);F0R X=H3 TO H3-87 5TEP -6;P0KE 53 
255.X 

980 IF PEEK (53259)>0 AND PEEK(53259)O 

8 THEH POP ;53=53+1¡POKE 657,37¡? 53;; 

H5L$(T3+6,T3+6)=CHR$(8);RETURN 

998 IF PEEK(53251) OR X<46 THEH POP ¡M 

5L$ (T3+6,T3+6)=CHR$(O):RETURH 

1080 HEXT X;M5L$(T3+6,T3+6)=CHR$(0);RE 

TURH 

1810 T3=T3+3;T3$(T3,T3+13) =DW$ :FOR T=1 
TO 7¡HEXT T:IF PEEK(53263) THEH T3=T3 
-3:T3$(T3,T3+13)=DM$;RETURH 
1028 IF PEEK(53255) THEH T3=T3~3¡T3$(T 
3,T3+13)=DM$¡RETURH 

1030 IF PEEK (647) OR H3=8 OR T3>74 OR 
03<10 THEH RETURN 

1048 03=0;M3=M3-l!POKE 53255,H3+4¡FOR 
X=T3+14 TO 88 STEP 6¡M5L$(X.X+6)=M5L3$ 
(1,7) 

1050 IF PEEKÍ53259)>0 AND PEEK(53259)< 
>8 THEH POP ¡53=53+1¡POKE 657,37;? 53; 

¡MSL$(X+6.X+6)=CHR$(8):RETURN 
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TIPIANDO: continuación 


Í060 IF PEEK (53251) THE* POP :MSL$(X +6 


6 )-12;POKE 54279,PM:PMBASE=256*PM:VT=P 

*X+6)=CHR$(0):RETURN 


EEK(134)+256#PEEK(135) 

1078 NEXT X;MSL$(X,X)=CHR$(0);RETURN 


1308 5AT=PEEK(140)+256#PEEK(141);50=0; 

1080 T3=T3~3;T3S(T3,T3+13)=UP$:FOR T=1 


51=8:52=0;53=8 

TO 7:NEXT T:IF PEEKC53263) THEN T3=T3 


1310 Z=PMBASE~5AT:RE5T0RE 1520¡FOR X =8 

f3 • T5 $(T3,T3+13)=UP$:RETURN 


TO 4;VVT=VT+( 8 *X);READ Y;0F5=Z+Y;V3=I 

1090 IF PEEK(53255) THEN T3=T3+3¡T3$(T 


NT(0F5/256):V2=0FS-256*V3 

3,T3+I3)=UP$:RETURN 


1320 POKE VVT+2,V2;POKE VVT+3,V3:POKE 

1100 IF PEEK(647) OR M3=0 OR D3<18 THE 


VVT+4.128¡POKE VVT+5.8;P0KE VVT+6,128: 

N RETURN 


POKE VVT+7,0:NEXT X:Z=1 

1118 03=0:M3=M3~1:POKE 53255,H3+4:F0R 


1338 FOR X=1 TO 14;READ Y:ON Z G05UB 1 

X=T3-2 TO 16 5TEP -6;MSL$(X,X+6)=M5L3$ 


488,1498,1508,1510¡NEXT X 

(7,13) 


1340 Z=Z+1;IF Z<5 THEN GOTO 1338 

¿íxo ir PEcKí53269j>ó AND PEEK(53259)< 


1358 POKE 53248,55:POKE 53249,55¡POKE 

>0 THEN POP ¡53=53+1¡POKE 657,37:* 53; 


53250,192:POKE 53251,192:H0=55:Hl=55;H 

:M5L$(X.X)=CHR$(0);RETURN 


2=192!H3=192 

1138 IF PEEK (53251) THEN POP ¡MSLSíX X 


1360 FOR X=0 TO 3:POKE 53252+X,0:NEXT 

)-CHR$(0);RETURN # 


X:M0=30:Ml=30:M2=38:M3=30:08=8:01=6;02 

1140 NEXT X;MSL$(X+ 6 ,X+ 6 )=CHR$(0);RETU 


=0:03=0 

RN 


1378 T0S(28.37)=RT$:Tl$(74,83)=RT$:T2$ 

1150 50UND 8,180,2,7 


(28,37)=LF$;T3$(74,83)=LF$;T8=28;Tl=74 

1160 08=00+1iA=PEEK(635):0N ((A=7)+2*( 


:T2=28:T3=74 

A-U)+3*(A-13)+4#íA=14)} G05UB 870 940 


1380 FOR X =8 TO 3:POKE 53256+X,0:NEXT 

1810.1080:POKE 53278,1 


XíPOKE 53260,0 

1170 01 = 01+1 :A=PEEK(634);0M C(A=7)+2++C 


1398 POKE 784,40¡POKE 785,72¡POKE 786, 

A-U)+3*(A=13)+4#(A=14)) 605UB 590 550 


136:POKE ?87,288:P0KE 712,8 

,738,800¡POKE 53278,1 


1480 POKE 752,1¡POKE 656,0¡POKE 657,3 

1188 02=02+1;A=PEEK(633);0N í(A=7)+2*( 


1418 ? "CAFE 8 ROJO 0 AZUL 0 VER 

A-ll)+3*tfl=i3 J+ 4 J((A - 14n G05UB 310,388 


DE 0"; 

.450,520¡POKE 53278,1 


1420 COLOR 1¡PLOT 0,8¡DRAHTO 79, 6 .DRAM 

1196 03=03+1:A=PEEK(632);0N ((A=7)+2*( 


TO 79,39;DRAMT0 8,39;0RAMT0 0,0 

A=11)+3*(A=13)+4*(A=14)) G05UB 30,100, 


1438 FOR X =8 TO 2:PL0T 14+X,6;DRAMT0 1 

170.240SPOKE 53278,1 


4+X,12:PL0T 63+X,6¡DRAHT0 63+X,12;PL0T 

1260 IF 58>9 OR 51>9 OR S2>9 OR 53)9 0 


63+X,27:ORAMT0 63+X.33 

R H0+M1+M2+M3=8 THEN ? "Q":POKE 656,1; 


1448 PLOT 14+K,27¡DRAHT0 14+X,33;PL0T 

POKE 657,2:GOTO 1220 


38+X,14:DRAHTO 38+X,24 

1218 POKE 77,0¡GOTO 1160 


1450 PLOT 6,18+X:DRAMT0 12,18+X¡PL0T 6 

1220 IF 50>9 THEN ? "COMANDO CAFE *" 


6,18+X:DRAHTO 72,18+X;NEXT X 

;G05UB 1270¡eno 


1468 M5L0$="ffftff Jmfff:MSLl$="ftff 

1230 IF 51)9 THEN ? "COMANDO ROJO !»:G 


f*¿fW?r';MSL2$="m*¥¥ ftmf»¡M5L3$ 

OSUB 1270¡END 


="mfifcmm" 

1240 IF 52>9 THEN ? "COMANDO AZUL <»: 


1470 POKE 559,46¡POKE 53277,3¡RETURN 

G05UB 1270;ENO 


1488 UPS(X,X)=CHR$(Y):RETURN 

1250 IF 53>9 THEN ? “COMANDO VERDE !" 


1498 OMS(X.X)=CHR$(Y) ¡RETURN 

!G05UB 1278;ENO 


1580 LF$(X.X)=CMR$(Y)¡RETURN 

1268 ? "FUERZA,¡G05UB 1280;ENO 


1510 RT$(X,X)=CHRS(Y)¡RETURN 

1279 ? "FELICITACI0NE5 POR TU VICTORIA 


1520 DATA 512,640,768,896,384 



1530 DATA 8,0,0,8,73,93,127,127,127,93 

1288 FOR T=1 TO-2000;NEXT T;FOR X=0 TO 


, 65,0,0,0,0,0, 0 , 55,-93 ( 127 ,127,127,93,7 

4¡POKE 53261+X,0;NEXT XíPOKE 53277,0; 


3,8,8,0.0,0,0,0,127,28,62,254,62 

RETURN 


1548 DATA 28,127,0,0,0,8,0,0,0,254,56, 

1290 GRAPHIC5 24;GRAPHICS 5:PM=PEEK(10 


124,127,124,56,254,8,0,0,0 # 
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ASSEMBLER 



USR 


La columna USR continúa este mes proporcionan¬ 
do a sus usuarios más avanzados rutinas dei pro¬ 
grama anunciado en números anteriores: TURBO 
CHARGER. 


Usuarios con diskettera podrán tener acceso 
a este periférico mediante el lenguaje de máquina 
y apreciarán sus ventajas. 

Esta rutina sirve para cargar y salvar cualquier 
cantidad de datos y localizarlos en el área de me¬ 
moria de su computador. 

Los parámetros requeridos son 4: 

— CH: indica el canal. La línea 20 abre el canal 1 

— El segundo indica el tipo de operación: 

7: corresponde a la opción de lectura. 

11: sirve para escribir en el disco. 

— El tercero corresponde al diréccionamiento 


en localizaciones de memoria para el traslado 
de la cantidad de datos. 

— El cuarto parámetro Indica la cantidad de da¬ 
tos que participa en la transferencia. 

El siguiente listado corresponde a la operación 
para leer una pantalla en modo 8. 

Revisemos los datos de los parámetros: 

— CH = 1: canal 1. 

— RW + 3: si RW es 4 la suma es 7, por lo tanto 
la operación es de lectura. 

— SD: variable asignada en línea 40 para la pri¬ 
mera localización definida por el puntero 
(88/89). 

— 7680: es la cantidad de bytes necesarios para 
completar una pantalla en modo 8 + 16 (re¬ 
cuerde que en este caso no existe la ventana 
de texto). 
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ASSEMBLER 


« REM PR0GRAH.836 

10 CH=1;RW=4;R£M USE RW=8 PARA ESCRIBI 
R EN DISKETE 

20 CIOSE HISOPEN NCH,RM,0, "D:OATA.PIC" 
30 GRAPHICS 8+16¡POKE 710,0 
40 SD^PEEK(88)+PEEK (89)*256:REM LOCALI 
ZACIOM DE MEMORIA DE PANTALLA 
50 K=USR(ADR( l> hhhkkkkwhhE]B J hQE J hQD J hai 
■»hah** V04"),CH,RM+3,S&,7680>:CLOSE aCH 
60 GOTO 68 


Use esta rutina para cargar alguna figura que 
usted cree en este modo. Para ello agregue: 

45 GOSUB 1000 

1000 REM Rutina para crear el dibujo 

1010 

1090 

Modifique línea 40: 

RW + 3 por RW + 8 

para operación de lectura en disco. 

DATA.PIC 

Para rescatar esta rutina desde el disco hacia la 
memoria. 

Borre las líneas que agregó 45 y subrutina de 
líneas 1000 en adelante. 

Modifique en línea 50 el segundo parámetro 
que dice: 

RW+8 por RW + 3 

Esta rutina maneja ahora un sector como uni¬ 
dad de traslado, recuerde que un sector correspon¬ 
de a 128 bytes consecutivos. (Ver MUNDOATARI 
NO 0 para repasar la estructura del disco en rela¬ 
ción a número de sectores y ubicación de los mis¬ 
mos en los tracks. 


0 REM PROGRAM.037 
10 DIM 5$(128) 

28 5$=" 5$ (128)=5$:5$(2)=5$ 

38 RH=82:SD=ADR (5$) :SECTOR^l:DRIME=1:R 
EM USE RM=30 PARA ESCRIBIR AL DISCO 
40 X=USR (ADR ( l, hhVi J hB < j■» h|« hh|H hh 

■ H 504"),SD,SECTOR,DRIVE, RM) 

50 POKE 766,1;? 5$;POKE 766,0 


— SECTOR: número del sector del disco inicial 
para la operación. 

— DRIVE: número del drive que se selecciona. 
Recuerde que normal es 1, pero que puede te¬ 
ner incorporados a su configuración hasta 4 
drives y más. 

— RW: tipo de operación: 

82 lectura 

80 escritura. 

Ejecute el programa y usted colocará en el 
string S$ el contenido del sector 1. Mediante la 
línea 50 se imprime en la pantalla. 

El manejo del disco es ahora para modificar el 
set de caracteres con un nuevo font almacenado 
en el archivo CHAR.SET. 

El trabajo consiste en buscar un área de me¬ 
moria, que esté protegida para almacenar este 
nuevo Set de Caracteres. 

Dos son los parámetros requeridos: 

— CANAL 

— El segundo es la dirección de memoria en que 
se almacenará este nuevo set. 


0 REM PROGRAM.838 

i© CH=l;CB=PEEK(561)-4 

28 CL05E NCH:OPEN aCH,4,8,"D;CHAR.SET" 

38 X=USR (ADR ("hhh kkkLdf SÜBJ hfSH 

I J 0*QH J y04"),CH,CB):GLOSE aCH 

48 POKE 756,CB • 



Los parámetros para esta rutina son: 

— SD: localización de memoria para el traslado 
de la información. 
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Disparos 

matemáticos 


El programa de este mes consiste en un atractivo 
juego que combina el aprendizaje de matemáticas 
con un juego arcade. 


Las técnicas son elementales y carecen de len¬ 
guaje de máquina, por lo que la digitación y com¬ 
prensión no requieren gran esfuerzo por parte del 
l ec tor 

Este programa está dedicado a padres o edu¬ 
cadores que deseen usar el computador ATARI en 
el desarrollo de un determinado objetivo educa¬ 
cional. Su aplicación les permitirá apreciar las 
grandes posibilidades educacionales de su ATARI. 

Antes de ejecutarlo conviene salvarlo en un 
medio magnético como respaldo. Al usar la-casete- 
ra ponga un casete virgen, presione las teclas PLAY 
y RECORD, luego digite CSAVE y presione la 
tecla RETURN. 

En el caso de usar diskettera inserte un dis- 


kette formateado con el Sistema Operativo (DOS 
2.5 ó DOS XE) y digite: 

SAVE "D-.DISPARA.PGR 

Para ejecutar el programa digite RUN y pre¬ 
sione la tecla RETURN. 

Posteriormente usted puede efectuar modifi¬ 
caciones que le ayudarán en aumentar su conoci¬ 
miento en programación. 

Para jugar introduzca el joystick en la entrada 
correspondiente y practique con disparos que le 
permiten ingresar a una etapa de ejercitación ma¬ 
temática, que es precisamente el objetivo de esta 
columna. 

Un desafío para nuestros lectores consiste en 
enviar algunas modificaciones que le den al pro¬ 
grama original mayores aplicaciones. Para estas 
cartas habrá premios de estímulo de nuestro Catá¬ 
logo MUNDOATARI. 

Hasta el próximo mes. 
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EDUCACION 


10 DIM M$(1).P$ (3).00 (2),BL$ (1),B$ (29) 

.0P$(2),ANS$(10),Bl$(20),B2l(20);5C=0: 


THEN 158 

5T=1:G0T0 600 


135 GOSUB MOUE 

15 MEN=10:IF SCORE>MAXSCQRE THEN MAXSC 


148 GOTO J 

0RE=5C0RE 


150 XX=X+l:YY=Y-l:POSITION XX,YY:? 86; 

16 PREM5CORE=5CORE;5CORE=0:IF ST=1 THE 


K$ 

N 20 


156 IF STRIG(0)=8 THEN GOSUB HOVE 

17 GRAPHICS 2+16!POSITION 2.2;? 86;"®} 


168 LOCATE XX,YY-1,Z 

"i PREVSCÜRE 


170 IF Z<>32 THEN 200 

18 POSITION 2,4;? 86;"MAXIM0 ; ";H 


180 YY=YY~1:POSITION XX.YY+1:? 86;BL$: 

AK5C0RE;POSITION 2,8;? 86;" EffTB" 


POSITION XX.YY:? 86;8$¡GOTO 160 

19 SETCOLOR 3,INT(RND(0)*16),8;IF PEEK 


208 IF Z=A5C("0") THEN POSITION XX,YY: 

(53279)06 THEN 19 


? 86;BL$:G0T0 J 

20 GRAPHICS 1+16;PONE 559,0¡PONE 756,C 


202 IF Z>57 OR Z<48 THEN POSITION XX,Y 

H:IF NEN<0 THEN NEN=8 


, Y:? 86;BL$:G0T0 180 



285 IF Z>=48 AND Z<=57 THEN GOSUB 3008 

Q' 1 : r?$= i '^HM|11U1UAIIU 


210 0=0+1:OQ(Q)=Z~48:IF 0=1 THEN POSIT 

{Uü"; N$=". *': P$=" ( ":BL$=" " 


ION 2,23:? 86:CHR$(Z+128) 

31 REH 


215 IF Q<2 THEN GOTO 43 

33 POSITION 6,9;? 8&;"lflM*H"; ¡POSITIO 


220 0=0:T=GG(2)+00(i)#(LE0=1) + (OQCl)-1 

N 13,0;? 86;MEN;;POSITION 2,2;? «6;'•GUI 


)#QQ(2)*ÍLEV=2> 

friliH 1 ';POSITION 10,2:? 86;5C0RE 


238 POSITION 3,23:? B6;0P$(LEV,LEV);CH 

35 JS=60;J=110;HIT=1180!H0VE=62:OPY-1: 


R$ (Z+128); "SB 11 ; 

0=8 


248 OPEN 81,4,0,"K:" 

48 ? 86:? 86;B$;¡FOR 1=1 TO 17:? 86;B1 


258 K=K+i:GET 81,A 

$; ¡NEXT Ir? 86;B2$ 


260 IF A=126 THEN POSITION 6.23:? 86:" 

41 X=8:Y=20:POSITION X,Y:? 86;P$ 


":K=0:AN5$=" ,, ;G0TO 258 

42 POKE 559,34¡IF HEN=0 THEN 500 


278 IF ÍA<48 OR A>57) AND A<>155 THEN 

43 PX=INT(RNDC0)*16)+2:PY=5:NUN=INT(RN 


K=0:ANS$="":POSITION 6,23;? 86;" 

CÍO)*10)¡POSITION PX,PY¡? 86;NUM 


II • 

K 

45 GOTO J 


271 IF (A<48 OR A>57> AND A<>155 THEN 

60 5=5TICK(0):DX=f5=5 OR 5=6 OR 5=7)-( 


50UND 3,150,12,18:FOR HH=1 TO 100¡NEXT 

5=9 OR 5=18 OR 5=11):RETURN 


HW:SOUND 3,0,8,0¡GOTO 250 

62 OPX=INT(RNO(0)*3)-1:POSITION PX.PY: 


275 IF A=155 AND LEN(ANS$Xl THEN K=8¡ 

? 86;BL$ 


ANSÍ:"";POSITION 6,23:? 86;" 

63 PX=PX+OPX:IF PX<2 THEN PX=3 


276 IF A=155 AND LEN(ANS$)<1 THEN 50UN 

64 IF PX>18 THEN PX=17 


D 3,150,12.10:FOR WW=1 TO 100:NEXT MH¡ 

65 PY=PY+OPY:IF PY>28 THEN GOSUB 2500; 


SOUND 3.8,0,0¡GOTO 258 

GOTO 42 


288 IF AOi55 THEN POSITION 6+K,23¡? 8 

66 IF PX=X+1 ANO PY=Y THEN FOR 1=1 TO 


6:CHR$(A); 

20;5OUND 1,200+1.6,12:NEXT I:SOUNO 1.0 


285 IF A=155 THEN 300 

,0,0¡POP :MEN=MEN-5;G0T0 28 


290 AN5$(K,K)=CHR$(A)!GOTO 250 

67 POSITION PX.PY:? 86:NUH:RETURN 


308 ANS=VAL(AN5$) 

89 ANS$=5TR$(T)¡POSITION 6,23:F0R 1=1 


310 IF AN5=T THEN GOSUB 2809 

TO LEN(AN5$):? B6;CHR$(A5C(AN5$(I,I))+ 


315 IF INT(5CORE/(50#LEV))-SC=0 THEN 3 

128):íNEXT I:? 86;" 


20 , 

81 ANS$=" ,, :FOR HW=1 TO 1O00;NEXT MM:RE 


316 SC=INT (5C0RE/ (58*LEV)): MEN=MEN+1: F 

TURN 


OR 1=1 TO 30¡SOUND 0.200-1,10,8¡NEXT I 

110 GOSUB JS:X=X+OX;FOR HH=1 TO 10:NEX 


¡SOUND 0,0,8,0¡GOSUB 550 

T HW;IF X<1 THEN X=1 


328 IF ANSOT THEN MEN=HEN-1 ¡ SOUND 3,2 

120 IF X>16 THEN X=16 


88,12,8,:FOR MW=1 TO 208¡NEXT HW:SOUND 

130 POSITION X,Y:? 86;P$:IF 5TRIG(0)=8 


3,0,0,0:GOSUB 550¡GOSUB 80 


ABRIL/MAYO 1989 


25 














ED UCA Cl ON: co n tin uación 



330 IF HEM=0 THEM AN5S="":T=8:CL0SE #1 
:K=0:POSITIOM 2.23:? #6;" 

«•;:GOTO 500:REM 18 spaces 
400 ANS$="": T-0: CL05E ttl:K=0:P05ITI0N 
2,23!? #6;" "»5SOTO 4 

3:REM 18 spaces 

500 POSITIOM 10,23:? #68" ":P05I 

TION 5.10:? tt6j'tHEHiíH3":FOR MHrl TO 

800:NEXT HH:5C=0:ST=#:6OTO 15 

501 REH 7 spaces in line 580 
550 IF MEN<0 THEM MEN=0 

555 P05ITI0M 13.0:? ttSjHENj" ";RETURN 
608 LEM=1:0P$='UH":GRAPHICS 2:? #6¡“HE 

nivel a*» 

610 ? «6; 

620 ? H6;"3ttE lilALLU-jmi KIMD» 

3HGEKI3 ahora I0NOGNE 

n3t3*3C&Z®il: í '; 

630 ? #6;"3#30itZ^^ 

IOM 13,1:? »6;LEM; 

635 POKE 752,1 

640 ? "Pulse ar-llií inicia ":? "Pulse @ 
(aran cawbia nivel ":? "Pulse 0H 

íTírn instrucciones"; 

645 IF PEEK(53278)=7 THEM 645 
650 KEY=PEEK(53279) 

660 IF KEY=6 THEM 1300 

670 IF KEY=3 THEM 700 

680 IF KEY=5 THEM LEM=LEV+i:IF LEM=3 T 

HEM LEV-1 

685 P05ITI0M 13,1:? »6;LEM 
690 IF PEEK (53279) 07 THEM 690 
695 GOTO 645 

709 GRAPHICS 0;POKE 752.1:? " K 

KttiaiMiHiKflar 

718 ? :? " NIVEL 1 5UHA5 ."!? 
" NIVEL 2 MULTIPLICACION." 


715 ? :? " Use joystick," 

720 ? :? " TIENES 10 MIDAS.IMTEMT 

ALO ":? "DI5PARA A 2 NUMEROS y luego 
resuelve" 

725 ? "5i un nunero llega al inferior 
antes "i? “de derribarlo pierdes una v 
ida "t? "puedes "; 

730 ? "perder 5 vidas" 

735 ? "la respuesta correcta ":? "a 
gregas 2 puntos a tu puntaje " 

740 ? "LOS ERRORES significan perder 

una vida.El BONO de una MIDA p 
or 50 puntos en nivel 1" 

745 ? " y 100 puntos en nivel 2" 

800 POSITIOM 2.22:? "Pulse ÜllW 

810 IF PEEK (53279) 06 THEM 810 

828 GOTO 600 

1180 FOR N=9 TO 15 

1190 SETCOLOR 4,4,15-R 

1195 SETCOLOR 3,INT(RND(0)*16),4 

1200 SOUND 0,20,0.15-M 

1210 SOUMD 1,227,6,15-M 

1220 FOR HW=1 TO 30:NEXT WH 

1230 MEHT N 

1240 SETCOLOR 4,8,0:RETURN 
1300 CH=PEEK(106):CH=CH-8 
1305 POKE 559,0 

1310 CH5ET=CH#256:F0R 1=0 TO 512:P0KE 
CHSET+I.PEEK(224*256+1)JNEXT I 
1320 FOR 1=0 TO 63:READ N.POKE CHSET+8 
+I,M:MEKT I 
1325 GOTO 15 

1338 DATA 60,120,240.128,60.30,15,30 

1331 DATA 15,3i,83,127,248,240,128,60 

1332 DATA 240,248,252.254,15,15,30,60 

1333 DATA 129,195,231,255,126,69.24,0 

1334 DATA 60,120,240.240,127,63,31,15 

1335 DATA 60.30,15,15,254,252,248.240 

1336 DATA 0,24,60,126,255,231,195,129 

1337 DATA 195,102,60,126,255,255,126,6 
O 

2800 FOR 1=1 TO QQ(1)+00(2)iSC0RE=5C0R 
E+l 

2010 POSITIOM 10,2:? tt6;5CORE:50UND 0. 
30,IB.10:FOR WH=1 TO 56;NEXT WW:SOUMD 
O,0,0,0:NEXT I;RETURH 
2580 MEM=M£N-i;POSITIOM HX.YY:? t*6;BL$ 
:.FOR 1=1 TO 58:50UND 2.1.4,6:NEXT 1:50 
UND 2.O,0,0:G05UB 550IRETURM 
3000 POSITIOM XX,YY:? 86:BL$:POSITIOM 
KK.YY-l:? 86;CHR$(138):G05UB HIT:P05IT 
IOM KX.YY-l:? #6 8" "'.RETURN • 
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PROGRAMAS 




f' 

The First XLErt 


□add 


Continuación y final 

19. ENCABEZAMIENTO Y PIE DE PAGINA 


El formato para ¡nidal¡zar el encabezamiento 

OPTION/F 

hdN; izquierdo; medio; derecho y RE TUR INI 


El XLENT perríiite con gran extensión esta 
potencialidad mediante las directivas: 

— hd: encabezamiento 

- ft: pie de página 

Estas no son contabilizadas como números 
de líneas por la directiva Ip. 


Ejemplo: 

F hd2: MUNDOATARI;; Pagina 20 

N = 2 indica el número de líneas sobre la 
primera línea de texto. 

Los signos punto y coma son directivas para p. 
indicar la posición en el ejemplo. 1/ 
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PROGRAMAS: continuación 


MUNDOATARI se localiza al izquierdo. 

Al colocar dos veces seguidas el signo punto y 
coma se indica la ausencia de texto en posición 
central, mientras que en el derecho está el numero 

de página. ' . 

Existen diferentes posibilidades para la escri¬ 
tura de los encabezamientos de la combinación de 
como directivas. . 

La misma situación es válida para el pie de 
página, así por ejemplo: 

F ft2: ; ; 21 /04/1989 

Localiza a 2 Iíneas después del final del texto, 
ubicación derecha la fecha indicada. 


20. ENCADENANDO DOCUMENTOS 

Si un documento presenta una gran extensión 
no será posible contener en la memoria un solo 
archivo, por lo tanto será necesario dividirlo en 
secciones que corresponden a archivos separados. 
Mediante la directiva de enlace es posible encade¬ 
narlos para que puedan imprimirse como un docu¬ 
mento único. , , 

Usando una de las directivas de unión el for- 
mateador de textos acepta el nombre de archivo 
para la siguiente sección del documento que debe 
imprimirse. 

nx: directiva para el archivo siguiente. 

La última línea de cada sección debe contener 
la directiva nx con el nombre del archivo. 

Ejemplo: 

nx: DI: SECCION2.EXT 

y así sucesivamente cada sección, exceptuando la 
última que finaliza la impresión del documento 
total. 


22. SET DE CARACTERES INTERNACIONALES 

Al presionar la tecla HELP de la consola un 

mensaje solicita el número. , 

Presione el número 4. En pantalla aparecerá la 
descripción de la tecla que debe acompañar a la te¬ 
cla CONTROL para obtener el carácter especial 
del set internacional que usted desea editar en 

pantalla. ... 

Para retornar a la pantalla principal presione 
la tecla inverso (logo ATARI) y nuevamente tiene 
la pantalla principal de edición para probar el ca¬ 
rácter que usted seleccionó. 

De la comparación con el ATARI Writer po¬ 
demos apreciar que una palabra aparece como co¬ 
rresponde en la pantalla en lugar de la serie de ca¬ 
racteres que no tienen sentido literal de lectura 
del ATARI Writer. 

Así por ejemplo: 


CTRL/V proporciona la letra fi. 

CTRL/B proporciona la letra Ñ. 

CTRL/, proporciona la letra a con acento. 


CTR L/T proporciona la letra e con acento. 
CTRL/G proporciona la letra i con acento. 
CTRL/N proporciona la letra o con acento. 
CTRL/M proporciona la letra u con acento. 


Si usted necesita editar un texto para asignatu¬ 
ras matemáticas o científicas tiene un font con la 
mayoría de los signos de recurrencia normal. Para 
activarlos el procedimiento es el siguiente: 

Presione las teclas SHFT/CTRL/S 


a Ao oorni ID pl ^f”h IVO . 


PERFECT.FNT 

Si usted presiona ahora la tecla HEPLP y a 
continuación el número 4 verá en pantalla la serie 
de símbolos a su alcance gracias a este excelente 
procesador de textos. 
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PROGRAMAS: continuación 


23. FUNCION MAIL MERGE 

Esta potencialidad es útil para crear formatos 
o cartas que deben modificar ciertos campos que 
¡nteractúan con un archivo que usted tiene en una 
base de datos. 

Para esto el documento debe contener forma¬ 
tos especiales para indicar el lugar en el que debe 
ingresar el respectivo campo de la base de datos 
para que cada carta sea un original que lleve la 
información exlcusiva de ese documento. 

Las teclas a usar para identificar el lugar de 
inserción del campo de la base de datos son: 

OPTION/INSERT 

En pantalla aparece un símbolo que corres¬ 
ponde al mayor. 

Para usar la opción Mail Merge debe presionar 



las teclas OPTION/O y a continuación el nombre 
del archivo en que se localizan los datos. 

24. IMPRESION A DOBLE COLUMNA 

Al seleccionar la opción P del menú aparecen 
6 funciones en la parte inferior derecha. El diálogo 
con el usuario se inicia con una nueva pantalla en 
que al presionar la tecla D da acceso a construir el 
formato para imprimir en doble columna el texto 
que se encuentra en memoria. Luego debe definir 
los márgenes inicial y final para cada una de las 
2 columnas. 

El mensaje a continuación pemite la impre¬ 
sión total o parcial del documento a doble colum¬ 
na. 


25. PRINTER DRIVER 

El propósito de esta opción es permitir el 
acceso de toda la potencialidad de la impresora 
(subrayar, superscript, etc) y hacer su acceso lo 
más simple posible. 

La primera función es inicial izar el Printer 
Driver para su impresora. Este es un programa se¬ 
parado para el acceso y que explicaremos en de¬ 
talle en una próxima sección de MUNDOATARI 
para la impresora Panasonic, seleccionada por 
nuestro equipo editor como la impresora del año. 

26. INSERTAR GRAFICOS Y CUADROS 

Esta debe ser la potencialidad más exclusiva 
de este procesador de textos. Por eso su impor¬ 
tancia para describirlo extensamente en 3 núme¬ 
ros de nuestra revista. 

La directiva ep a continuación del nombre 
para el archivo indica que este archivo sea enviado 
byte a byte hacia la impresora, i 

Cuando el programa carga la figura la pantalla 
se carga y presionando teclas usted puede accesar 
al directorio del disco para correcciones: 

D; acceso al directorio del disco. 

P: carga un cuadro sin comprimir 62 sectores 

B: acceso a gráfico de BG RAPH 

I: acceso a ¡con de TYPESETTER. 

25. INTEGRACION CON OTROS PROGRAMAS 

Muchos programas pueden integrarse a este 
procesador. 

Usando Microscreen Picture Formatter puede 
imprimir gráficos de BGRAPH. 

SYNFILE+ puede emerger con sus propias 
cartas en la opción Mail Merge. 

26. PANTALLAS HELP 

Las 4 pantallas de acceso con HELP le dan 
un resumen del uso de las teclas principales de 
acceso, como también el set de caracteres inter¬ 
nacionales. • 
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PROGRAMAS: continuación 



IVUIWS' 

/C rj 'V' r 

:.V^tSRACrl 


(tlllllll I 


El programa que ofrecemos este mes les permiti¬ 

rá ejercer sus potenciales dotes de periodista, en 
la creación de sus propias publicaciones. 


Usted podrá con ayuda del NEWSROOM, di¬ 
señar, escribir e ilustrar una amplia gama de publi¬ 
caciones, incluyendo periódicos, circulares, folle¬ 
tos, volantes y formularios. De este modo podfá 
difundir noticias relativas a su negocio, colegio, 
club, equipo, familia o juntas de vecinos. 

El NEWSROOM permite manejar todas las 
actividades necesarias para la elaboración de un 
impreso. Esto incluye el título principal, la selec¬ 
ción de fotos, textos, diagramación e impresión. 

El programa consta de 2 discos, uno de los 
cuales tiene un archivo de más de 600 ilustracio¬ 
nes que podrán emplearse en su impreso. 

Se dispone de 5 tipos de letras para la compo¬ 
sición de textos. 3 de ellas son de mayor tamaño. 

El programa se maneja enteramente a través 
de iconos, que permiten elegir la tarea deseada. 
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PROGRAMAS: continuación 


El cursor se desplaza en pantalla con el -joystick 
o con las teclas de desplazamiento. Por medio del 
botón rojo del joystick o con la tecla SELECT se 
selecciona el icono deseado 

Las 3 reas creativas de su programa: el Banner, 
el Photo Lab y el Copy Desk contienen un rea de 
trabajo -rectángulo en blanco— al cual ingresan 
los elementos de su diario a medida que vaya de¬ 
sarrollando su trabajo. Cada una de estas reas dis¬ 
pone a la izquierda de un menú compuesto por 
símbolos gráficos o iconos. Ellos representan una 
función específica que puede ejecutarse. 

Varios de los iconos son comunes a las 3 reas 
de trabajo. Hay un total de 11 iconos. 

Para seleccionar un icono basta llevar hasta él 
el cursor, de modo que apunte en esa dirección. 

El cursor adopta la forma de flecha, mano o 
cuadrado según la función a desempeñar. La flecha 
selecciona un icono, la mano deposita o levanta 
una figura del rea de trabajo o del disco de figuras 
y el cuadrado del tamaño correspondiente cuando 
escribe texto. 

Los iconos representan un rostro para ir al dis¬ 
co de figuras, un par de flechas en direcciones 
opuestas para invertir la figura depositada en el rea 
de trabajo (reflexión especular), un lápiz para acce¬ 
der al menú de gráficos y letras, una lupa para el 
zoom que permite modificar partes de la figura 
seleccionada, un tarro de basura para borrar todo 
lo ejecutado hasta ese momento y un diskette 
para acceder a las funciones de grabado o carga 
de archivos. 

La tecla SELECT permite escoger el icono 
con las teclas de cursor. 

Digitando CONTROL/S se cambia el movi¬ 
miento del cursor de rápido a lento y viceversa. 

CONTROL/L cambia el carsor del rea de tra¬ 
bajo al rea de iconos y viceversa. 

Para traer una figura al rea de trabajo se selec¬ 
ciona el rostro del menú. Esto permite acceder al 
disco de figuras donde podrán seleccionarse algu¬ 
na de las 600 disponibles. Coloque el cursor en for¬ 
ma de mano sobre la figura elegida y oprima el 
botón del joystick o tecla SELECT. 

Al regresar al rea de trabajo se deja la figura 
en el lugar deseado oprimiendo nuevamente el bo¬ 
tón del joystick. Si la figura no queda en forma 
conveniente puede volver a reubicarse. 

Cuando se llama al disco de figuras apacerá en 
pantalla una lista de todos los grupos de figuras 
que contiene el disco, además de 2 Ítems adicio¬ 
nales: 

New Disk 

Cancel 

El primero permite ver el otro lado del disco. 
El segundo permite salir sin elegir ninguna opción. 

Para elegir una opción basta oprimir SELECT 
cuando el cursor esté sobre el nombre del grupo 
deseado. Esto muestra las figuras de dicho grupo. 


Entonces se moverá el cursor con la forma de ma¬ 
no sobre la figura a elegir. Para ello presione la te¬ 
cla SELCT. 

La edición de una página comienza por la cre¬ 
ación del Banner, luego la selección de fotos en el 
Photo Lab y la inclusión del texto en el Copy Desk. 
Cada una de estas etapas deben guardarse en el dis¬ 
co de archivo, para lo cual se selecciona el icono 
con la figura de un diskette. 

En el Photo Lab se componen los paneles (4, 
6 u 8 por página), dependiendo de la longitud del 
papel en la impresora. Aquí se incluyen la o las 
fotos seleccionadas más el texto. Un panel puede 
contener texto y fotos o solamente texto. 

Una vez terminado el trabajo se guardará en 
diskette, dándole un nombre de archivo. En forma 
similar se completan el resto de los paneles que 
componen la página. 

El armado de la página se realiza en el Layout, 
que presente la estructura de la página con casi¬ 
lleros vacíos, en los cuales se incluye el nombre del 
archivo del Banner y los paneles en la ubicación 
correspondiente. 

Terminado el trabajo se grabará en diskette. 
Es importante que todos los elementos que con¬ 
forman una página sean almacenados en un mismo 
diskette de archivo. 

Finalmente tenemos la prensa (Press), para 
pasar nuestro trabajo a impresora. El programa 
permite imprimir en forma individual los Banner, 
paneles y fotos o bien la página ya terminada. 

Previamente es necesario definir el tipo de 
impresora disponible. £ 
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DISKETTE 



Edición especial para 1050 


La Unidad de Disco 1050 se encuentra este mes 
en promoción especial para los amigos lectores, 
que poseen casetera y ven frustradas sus aspira¬ 
ciones de superación. 


Este programa permite cargar en forma auto¬ 
mática un programa sin necesidad de inicializar 
con el DOS y posteriormente llamar el programa. 

Llamaremos a este programa "El Automático". 

TEORIA: 

Al encender su ATARI se inicializa el progra¬ 
ma de partida denominado COLDSTART, lo que 
implica una operación paso a paso verificando y 
modificando datos en la Unidad Central de Proce¬ 
so y otros chips del hardware. 

Ejemplo: 

¿Se encuentra presente el cartridge? 

¿Está conectada la casetera al equipo? 

¿Está conectada la Unidad de Disco? 

Estos valores son adjudicados en la memoria 
designando una tabla para su acceso posterior. 

Todo este proceso se conoce con el nombre 
de "Booting Up". Si la Unidad de Disco se en¬ 
cuentra conectada en su ATARI se cargará el Sis¬ 
tema Operativo del Disco (DOS) desde la Unidad 
de Disco N° 1. 

A continuación, si se encuentra presente en su 
directorio un archivo con el nombre de AUTO- 
RUN.SYS, éste se carga en forma automática y se 
ejecuta sin necesidad de digitar los comandos: 

LOAD y posteriormente RUN. 

Existen básicamente 2 tipos de AUTORUN. 
SYS usados en la programación ATARI: 


a) Con la Interfase 850 (RS-232). 

b) Ejecución directa mediante comandos del 
BASIC. 


20 DIM A$C50) ,[>0(146) 

30 GOTO 590 
48 INPUT 6$ 

50 OPEN «1,8,0,“D: AUTORUN, SY5*' 

60 PUT «1,255 

70 PUT «1,255 

80 PUT «1.0 

90 PUT «1,56 

100 L-146+LEH (A$)"1 

118 PUT «1,L 

120 PUT «1.56 

138 FOR 1=1 T0 146 5TEP 10:CHK5UM=0 
140 IF 1+10)146 THEN FOR J=1 Tü 147-1: 
GOTO 168 

150 FOR J=i T0 10 

160 READ &:CHKSUM=CHKSUM+D:&I>(I+J-1>=D 
:NEXT J 

170 READ 0:IF CHK5UM-D THEN HEXT IíGOT 
0 218 

180 ? :? “CHECK SUM ERROR AT LIN 

E NO, ":PEEK(184)#256+PEEK(183):CL05E 
«1 

198 XIO 33,«i,0,0,"0:AUTORUN.5Y5" 

200 LI5T PEEK(184)#256+PEEKU83) :END 
218 FOR 1=1 T0 146 
220 D=DDÍI) 
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230 IF 1=99 THE* PUT «1,LENCAS)¡GOTO 2 
50 

240 PUT «I,& 

250 NEXT I 

260 F0R I-LEN(fl$) TO 1 5TEP -1 
270 PUT «1,A5C(A$(I,I)) 

280 NEXT I 
298 PUT «1,255 
300 PUT «1,255 
310 PUT «1,226 
320 PUT «1,2 
330 PUT «1,227 
340 PUT «1,2 
350 PUT «1,0 
360 PUT «1,56 
378 CL05E «1 
388 EN» 

480 DATA 169,80.141,6,3,169,1,141,1,3, 
708 

410 DATA 169,63,141,2,3,169,64,141,3,3 
.758 

420 DATA 169,5,141,5,3,141,6,3,169,0,6 

42 

430 DATA 141,4,3,141,9,3,141,10,3,141, 
596 

440 DATA 11,3,169,12,141,8,3,32,89,228 
,696 

450 DATA 16,3,76,87,56,162,11,189,0,5, 

605 

460 DATA 157,0,3,202,16,247,32,89,228, 
48,1022 

470 DATA 16.32,6,5,165,12,141,85,56,16 
5,683 

489 DATA 13.141,86,56,32,0,0,169,103,1 

41,7 41 

490 DATA 33,3,169,56.141,34,3,169,0,14 
1,749 

500 DATA 214,56,96,251,243,51,246,118, 
56,163,1494 

510 DATA 246,51,246,60,246,76,228,243, 
0,172,1568 

520 DATA 214,56,240,9,185,145,56,206,2 
14,56,1381 

530 DATA 160,1,96,148,33,3,169,228,141 
.34,1005 

549 DATA 3,169,155,160,1,96,584 
595 ? ¡? •• 

sea ? 


610 ? "alternativas posibles:":? " i 
. carga de interfase RS-232 de " 

620 ? " interfase 850 

i? " a- la configuras ":? •• 
b. ausente » 

630 ? " y ":? " 2 . ejecuta in»ed 
iato los ";? comandos BASIC 

que dígitas " 

640 ? " EJEMPLO : RUN ";CHR$(34 

) ! "D: MENU":? :? " INGRESA los tona 
ndos BASIC":? 

650 GOTO 40 
660 END 


Comentario de líneas: 

600-720 Despliega mensajes para instrucciones de 
uso. 

40 Ingresa en variable alfanumérica A$ las ins¬ 
trucciones en BASIC. El límite son 3 líneas 
lógicas. 

50-130 Una rutina de comprobación de suma, pa¬ 
ra determinar el correcto ingreso de líneas de 
DATA. 

140-370 Crea un archivo en el diskette con el 
nombre de AUTORUN.SYS que contiene las 
instrucciones para la carga digitadas en A$. 


Como una contribución a los cientos de nue¬ 
vos usuarios de la 1050 MUNDOATARI ha incor¬ 
porado en el mercado este nuevo programa para 
optimizar su uso. Este permite cargar automática¬ 
mente los programas desde el directorio. 

Un consejo para los nuevos usuarios de la 
Unidad de Disco 1050 se refiere a iniciar su estu¬ 
dio a partir del número 0, desde el cual se ha pro¬ 
porcionado en forma continua información vital 
para este periférico. MUNDOATARI tiene dispo¬ 
nibles esos ejemplares a un precio de promoción 
de $ 2.400 por 12 números, independientemente 
del número de inicio. 

TEORIA: 

El programa consiste básicamente en: 

a) Presentar una pantalla para editar los nombres 
de archivos presentes en el disco. 

b) Leer el nombre de los archivos desde sectores 
del directorio. 

c) Rutina de ingreso de un número. 

d) Determinar las características del archivo car¬ 
gado. 

e) Proceder a la carga. 

f) Proporcionar los mensajes de ERROR ante la 
imposibilidad de carga. 
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DISKETTE: continuación 



Es conveniente tener la siguiente convención 
para cuando usted cree un determinado archivo en 
diskette: 

.BAS esta extensión indica que el programa se 
encuentra en BASIC y está grabado con el 
comando SAVE. 

.LST indica que el programa se encuentra en 
BASIC y está grabado con LIST. 

.EXE Indica que el programa es binario y no re¬ 
quiere el uso de BASIC para su ejecución. 

ASM indica que el programa fuente está en 
lenguaje ASSEMBLER. Para visualizarlo use 
un Editor de ese lenguaje. 

.DAT indica que este es un archivo de datos pa¬ 
ra un manejo de Base de Datos. Se debe usar 
el programa que lo maneja (SYNFILE, etc.) 
.DOC indica que es un texto creado con un pro¬ 
cesador de textos. Para visualizarlo se debe 
usar el ATARI Writer, 1. XLENT, etc. 

.PIC indica que es un archivo de un dibujo crea¬ 
do con un programa como Koala, ATARI 
Artist, etc. Podrá verlo con un cargador o con¬ 
vertidor de dibujo 


1 GRAPHICS 8:5ETC0L0R i,8,0:OIH Bi$(16 
),B2$(16):POKE 82,0:POKE 83,48 

2 C=IMT(RMO(0)*15):5ETCOLOR 2,C,8:5ETC 
OLOR 4,C,0:POKE 752,1:POKE 580,1 

3 OIM L$ (40),A$ (80),P$(800),N$(2),B0$( 
48),5$(8) 

5 ? CHR$(125):POKE 82,0:POKE 83,48:P05 
ITIOM 0,0:? *1 
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LIMERO 23 


6 ? "I 


PROMOCION E5PECIALISI 





'-.POKE 82,2:? 


9 ? "r 


11 LIN£=168:11=0: M$=“8" 

12 GLOSE ttÜOPEH m,6,8,“O:*.« ,, :B0$=" 

' ":GGT 

0 40 

25 N=N+1:L$=A$(3,13):P$(LEU(P$)+1)=L$: 


N$=5TR$(H):IF N<18 THEM N$(2,2)=N$(l,i 
) :N$(i,l)=" " 

27 RETURN 

40 INPUT ltl,A$:Z=ASC(A$Cl,i)):IF Z>47 
ANO Z<58 THEM 90 

45 IF A$(3,5)="0UP" OR ASn^^HeNU" 
OR A$ (3,9) ^''AUTORUM" THEM 40 
58 GOSUB 25:? "| ,, }L$; ,, = ,, ;M$;“ "i 
55 IMPUT m,A$:Z=A5C(A$(i,l)):IF Z>47 
ANO Z<58 THEM 87 

66 IF ASa.SJ^'DUP" OR A$(3,6)="MEMU" 
OR ASíT^I^AUTORUN" THEM 55 
80 GOSUB 25:? L$}'"= "¡N$:" I":GOTO 48 
87 P0SITI0M 36,(M/2)*6SPRINT "|" 

90 ? "I 

I" 

92 ? "I "iA?;" I":? " I — 


130 GOSUB 1400:POSITIOM 1,22:? "fl 

SELECCION II :TRAP 138¡IMPUT X:T 
RAP 40008 :IF XOINT(X) THEM 130 
132 IF X=0 THEM RUM 

140 L$=P$((X-i)#ll+l,(X-l)*li+il):TRAP 
40800:IF L$(9,9)=" " THEM L$=L$Ci,8): 

GOTO 145 

141 FOR X=12 TO 10 STEP -1:L$(X,X)=L$ ( 
X-1,X-1):MEXT X:LS(9,9)=". H 

142 F=LEM(L$):S=F-2 

143 IF L$(5,F)="00C" OR L$(S,F)="0AT" 
OR L$(5.F)=“TXT" OR LS(5,F)="PIC" THEM 

2i8:RcK IMPOSIBLE CARGARLO! 

144 LINE=160;IF L$(S,F)= I, BIM U OR L$(S, 
F)="0BJ" OR L$(S,F)= ,, EXE" OR L$(5,F)=" 
ASM" THEM LIME=580:REM BINARIOS 

145 IF L$(1,3)="DUP ,, OR L$(l, 3) ="D0S" 
THEM 005 

146 A$="B: U :FQR 1=1 TO LEN(L$):IF L$(I 
,I)=" " THEM 155 

147 A$(LEM(A$)U)=L$(I,I) 

155 MEXT I:POKE 752,3:P0SITI0M 1,22:PR 
INI ’U CARGAMOO ";L$ 

15? GOTO LIME 

160 TRAP 200:RUM A$:TRAP 48080 
200 GOSUB 1200 

210 ? CHR$íi25):PGSITI0N 1,18SPRINT "Q 

min o CARGA ";L$;" KfiH":? :? :? 

220 TRAP 48000 

238 GOSUB 1508 

240 FOR Z=1 TO 1480:MEXT Z 

258 GOTO 5 

497 REM 

499 REM 

500 ? CHR$(125):P05ITI0N 2,8:? L$;" AR 
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DISKETTE: continuación 


CHIVO BINARIO ";G05UB 1688 
585 POKE 764,8:? :? ;? "DEBE ELIMINAR 
BASIC ?" 

518 IF PEEK(764)=0 THEN 510 

528 IF PEEK(764)=35 THEN POKE 764.255: 

GOTO 570 

530 CL05E #1 JOPEN 8i,4,8,A$ 

550 X=USR(5576):REM CON BASIC 
568 RUN 

578 ? :? :? "i 400”:? ”2 808”:? "3 65 
HE”:? "4 138 HE":? "5 608 KL”:? "6 888 
KL”:? ”7 1200":? "8 OTROS” 

588 ? ¡? "CUAL ES EL SUYO? ” 

585 IF PEEKC764)=255 THEN 585 
590 IF PEEK(764)>25 THEN PRINT "PERDON 
E*":? "APAGA TU ATARI 

Y ":? "REMUEVE EL BASIC »:END 

688 POKE 764,255:FOR D=i TO 16 
618 READ DATA 
628 B8$(D,D)=CHR$(DATA) 

638 NEXT D 

648 DATA 184,169,255,141,1,211,24,165, 

106,105,32,133,186.76,208,21 

655 RESTORE 640 

660 CLOSE 81:OPEN 81,4,8,AS 

678 X=USR(ADR(B8$)) 

680 RUN 

1000 REM ETiTWWH 


1020 FOR 5=48 TO 8 STEP -i 

104O SOUND 1,5,10,8 

1850 SOUND 2,5+10,18,8 

1055 SOUND 3,5+5,18,8 

1060 NEXT 5 

1108 SOUND 1,0,0,0 

1110 SOUND 2,0,6,0 

1128 SOUND 3.8,0,O 

1158 RETURN 

1200 REM 

1220 FOR 5=0 TO 40 
1240 SOUND 1,5,10,8 
1250 SOUND 2,5+10,10,8 
12S5 SOUND 3,5+5,10,8 
1260 NEXT 5 

1300 SOUND 1,0,0,0 
1310 SOUND 2,0,8,0 
1320 SOUND 3,0,8,0 
1358 RETURN 
1408 REM 

1410 FOR C=1 TO 2 
1415 FOR C=i TO 2 
1420 FOR V=10 TO 0 STEP -1 
1430 SOUND 0,4,10,V 
1440 SOUND 1,10,10,V 


1458 SOUND 2,21,10,V 
1460 FOR T=1 TO 4:NEXT T 
1478 NEXT V 
1480 NEXT C 
1498 RETURN 
1508 REM 
1510 F=LEN(L$):5=F-2 
1528 IF L$(S,F )="LST” THEN ? ‘' ff T JBJHtM 

XSMfiEQBQB" 

1530 IF L$C5,F)="DAT" THEN ? " (UH.M -lj 
EHE":? :? 


IMPOSIBLE DE EJECU 


ograna D 


TAR5E 


1548 IF L$(5,F)= '*D0C" THEN ? * 

: ? :? ' 

TriiMiiii'iB^ " mjMaüia 

1558 IF L$(5,F) =»PIC" THEN ? 

üUBIEIíHjKaM":? :? *__ 

"S3iH®a*a0IHiE 

«« 

1680 RETURN 


ESTE ES 


USE EL PROCESA 


ESTE ES 


GRAFICOS USE UN 


APLICACION PRACTICA 

Usted puede optimizar el uso de los diskettes, 
mediante el uso simultáneo de estos 2 programas 
en un solo diskette. Siga los siguientes pasos: 

1. Formatee un diskette según las instrucciones 
del Manual del DOS. 

2. Agregue el DOS, con la opción correspondien¬ 
te del Sistema Operativo. 

3. Cargue el programa (digite), el segundo pro¬ 
grama que permite construir un Menú de se¬ 
lección y salve con la instrucción: 

SAVE "D:MENU" 

4. Cargue o digite el primer programa que permi¬ 
te inicializar el diskette. 

Antes de ejecutarlo salve una copia con la 
instrucción: 

SAVE "D:INICIAL 

Luego ejecute digitando: 

RUN "D:MENU" 

5. Apague el computador. 

6. Encienda y observe que en pantalla apa¬ 
rece el Menú característico con los archivos 
presentes en el Directorio. 

7. Agregue los programas que desee, teniendo 
en cuenta las extensiones indicadas anterior¬ 
mente para reconocer el tipo de programa. 

El próximo mes continuaremos con nuevos 
programas para optimizar su Disk Drive. # 
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PROGRAMAS 



Evaluación P.A.A. 


MUNDO A TA Rl inicia este mes un programa dise¬ 
ñado para evaluar el resultado de ejercicios de la 
Prueba de Aptitud Académica (PAA.) que rinden 
periódicamente los alumnos de Cuarto Medio. 


El objetivo de este programa es facilitar el 
diagnóstico del déficit de conocimientos de un 
determinado grupo de alumnos de un curso. 

TEORIA: La base de este programa considera 
fundamentalmente el manejo de strings. 

2 grandes strings con bloques de DATA se 
crean para almacenar información: 

TOTALS: almacena la lista total de alumnos 
que rinden la ejercitación. 

DATOS$: contiene la información acerca de 
las respuestas de todos los alumnos. 

La dimensión de estas variables alfanuméricas 
depende del valor de 2 variables numéricas: 

a) Número de alumnos. 

b) Cantidad de preguntas. 

Continuando el próximo número veremos las 
siguientes rutinas: 

1. Ingreso de las respuestas correctas. 

2. Corrección de las respuestas de los alumnos. 

3. Listado en orden decreciente de los resultados 
de la ejercitación. 

4. Salida a impresora. 


Escríbanos acerca de las posibilidades de este 
programa y modificaciones de la pauta sugerida. 


10 REM PROGRAMA EVALUADOR DE P.A.A 

20 REH MUNDOATARI «23 

30 REM USO DOMINIO PUBLICO 

40 REM CONTRIBUCION A LOS COLEGIOS 

100 GOSUB 10000 

110 REM INICIALIZA VARIABLES 

120 ? CHRS(125)i PONE 752,0 _ 

iiiim—— 

140 P05ITI0N 0,2:? "NUMERO ALUMNOS CUR 
SO "IINPUT NUMAL 

150 PÜ5ITI0N 0,41? "NUMERO DE PREGUNTA 

S ":INPUT NUMPRE 

150 N0MBRE=20 

165 LARG0=NUMAL*N0MBRE 

170 DIM NOMBRES(NOMBRE),TOTAL?(LARGO), 

DATOSS(NUMAL#NUMPRE) 

180 DIM INGRESOS(20),ELEMENTOS(NUMPRE) 

,RESPS(1) 

185 TOTALS(1)=" "¡TOTALS(LARGO)=" ":T0 
TALS(2)=T0TAL$ 

200 REM RUTINA INGRESO DE LISTA DE ALU 
MNOS EN TOTALS 

_ ___- 
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1080 i - 144 cps. 


$ 85.990 
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